综合题二
一、选择题（每题2分，计30分）
1、下列可以打开立即窗口的操作是（ ）
A. Ctrl + D B. Ctrl + E C. Ctrl + F D. Ctrl + G 2、如果在立即窗口中执行以下操作（
A = 8
Print a > b
B. private sub list1_click()
Label1 . name = list1 . listindex
End sub
C. private sub list1_click()
Label1 . name = list1 . text
End sub
D. private sub list1_click()
Label1 . caption = list1 . text
A. -1 B. 0 C. false D. true 3、当一个工程含有多个窗体时，其中的启动窗体是（ ） A.启动visual basic时建立的窗体 B.第一个添加的窗体 C.最后一个添加的窗体
D.在“工程属性”对话框中指定的窗体
4、决定一个窗体有无控制菜单的属性是（ ）
A. minbutton B. caption C. maxbutton D. controlbox 5、下列可以作为visual basic变量名的是（ ）
A. A#A B. 4A C. ?XY D. constA 6、执行如下语句：
A = inputbox(“ today” , ” tomorrow ” , “ yesterday ” , , , “ day before
yesterday” , 5 )
将显示一个对话框，在对话框的输入区中显示的信息是（ ）
A. Today B. tomorrow C. yesterday D. day before yesterday 7、决定控件上文字的字体、字形、大小、效果的属性是（ ）
A. text B. caption C. name D. font 8、下列程序段的显示结果是（ ）
X = 0
Print x – 1 X = 3
A. -1 B. 3 C. 2 D. 0 9、设a = “12345678”，则表达式val（left（a , 4） + mid（a , 4 , 2））的值为（ ）
A. 123456 B. 123445 C. 8 D. 6
10、在窗体上画一个名称为list1的列表框，一个名称为label1的标签。列表框中
显示若干城市的名称。当单击列表框中的某个城市名称时，在标签中显示选中城市的名称。
下列能正确实现上述功能的程序是（ ） A. private sub list1_click()
Label1 . caption = list1 . listindex End sub
1
End sub
、在程序代码中将图片文件mypic . jpg装入图片框picture1的语句是（ ）
A. picture1 . picture = “mypic . jpg” B. picture1 . image = “mypic . jpg”
C. picture1 . picture =loadpicture( “mypic . jpg”) D. loadpicture( “mypic . jpg”)
、在列表框中当前被选中的列表项的序号是由下列哪一个属性表示（ ）
A. list B. index C. listindex D. tabindex 、在窗体上面画一个名称为TxtA的文本框，然后编写如下的事件过程：
Private sub TxtA_keypress(keyascii as integer) ?? End sub
若焦点位于文本框中，则能够触发keypress事件的操作是（ ） A.单击鼠标 B.双击文本框 C.鼠标滑过文本框
D.按下键盘上的某个键
14、下列程序段的执行结果为（ ）
K = 0
For i = 1 to 3
A = i ^ i ^ k Print a ;
Next i
A. 1 1 1 B. 1 4 9 C. 0 0 0 D. 1 2 3
15、下列程序段的执行结果为（ ）
X = 2 Y = 1
If x * y < 1 then y = y – 1 else y = -1
111213 Print y – x > 0
A. true B. false C. -1 D. 1 二、填空题（每题2分，计20分）
1、VB中系统运行的基本实体是（ ）
2、在VB中，常量“987654.987654#”的数据类型是（ ） 3、双击窗体中的对象后，VB将显示的窗口是( ) 4、在VB中，可以改变控件大小的快捷操作是（ ）
5、触发文本框的Change事件的条件是（ ） 6、计时器控件能有规律地以一定时间间隔触发（ ）事件，并执行该事件过程中的程序代码
7、为了使标签能自动调整大小以显示全部文本内容，应把标签的（ ）属性设置为true 8、在3种不同类型的组合框中，只能选择而不能输入数据的组合框是（ ） 9、全局变量必须在（ ）模块中定义
10、为了把一个visual basic应用程序装入内存，只要装入（ ）文件即可 三、判断题（每题1分，计10分）
1、VB对象的name属性和caption属性作用完全相同。（ ） 2、DblClick事件是对象被鼠标双击时触发的事件。（ ） 3、VB表达式3 \\ 3 * 3 / 3 mod 3的值是1。（ ） 4、在VB中标签框可以获得焦点。（ ） 5、块if结构必须有end if 语句。（ ）
6、循环语句for i = 1 to 1 next i ,不能执行循环体。（ ） 7、图片框比图象框功能更强，它不仅可以显示图，还可以用print方法显示文本。
（ ）
8、组合框的style属性决定了组合框的风格。（ ） 9、在VB中load方法和show方法相同。（ ） 10、工程文件的扩展名为 ．frm。（ ）
四、程序填空题（每空2分，计10分）
1、在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程： Private sub form_load（） Text1 . text = “计算机”
End sub
Private sub text1_change() Picture1 . print “等级考试” End sub
程序运行后，在文本框中显示的内容是（ ），而在图片框中显示的内容是（ ）。
2、输入一个0～99999之间的整数，判断输入的是几位数。在窗体上有一个名
为command1的命令按钮控件。运行程序时，单击command1命令按钮，要
2
综合题二
求输入一个0～99999之间的整数。输入整数后，程序给出计算结果。请将程序补充完整：
Private sub command1_click（） Dim x as long X = val（inputbox（“请输入一个0～99999之间的整数”，“输入”）） If x \\ 10 = 0 then Print x ；“是1位数” Elseif （ ） then Print x ；“是2位数”
Elseif （ ） then
Print x ；“是3位数” Elseif （ ） then
Print x ；“是4位数” else
Print x ；“是5位数”
End if
End sub
五、程序输出结果题（每题5分，计20分） 1、下列程序段的执行结果为：
For x = 5 to 1 step -1
For y = 1 to 6 – x
Print tab( y + 5 ) ; “ * ” ; Next y
Print Next x
2、单击命令按钮时，下列程序代码的执行结果为：
Public Sub proc1(n As Integer, ByVal m As Integer)
n = n Mod 10 m = m / 10 End Sub
Private Sub Command1_Click()
Dim x As Integer, y As Integer x = 12 y = 34
Call proc1(x, y) Print x; y End Sub
3、以下程序段的输出结果是：
Num = 0
Do while num <= 5
Num = num + 1
Loop
Print num
4、下列程序段的执行结果为：
Dim a（10），b（5） For i = 1 to 10
A（i）= i Next i
For j = 1 to 5
B（j）= j * 20
Next j
A（5）=b（2）
Print “A（5）=”；A（5）
六、编程题（每题10分，计10分）
由键盘给定一个两位整数，要求交换个位和十位的位置，把处理结果显示在窗体上（可以设计单击窗体事件，也可以设计单击按钮事件）？
综合题二
白山职业技术学校2012~2013学年度第二学期期末试卷答案
一、选择题 1、 D 2、 C 3、D 4、D 5、D
3
6、C 7、D 8、A 9、B 10、D 11、C 12、C 13、D 14、C 15、B
二、填空题 1、对象
2、双精度（double） 3、代码窗口
4、shift+上下左右键 5、文本框内容发生改变6、timer 7、autosize
8、下拉式组合框 9、标准 10、工程 三、判断题 1、× 2、√ 3、√ 4、× 5、√ 6、× 7、√ 8、√ 9、× 10、×
四、程序填空题 1、计算机 2、等级考试 3、x \\ 100 = 0 4、x \\ 1000 = 0 5、x \\ 10000 = 0
五、程序输出结果题
综合题二
1、* ** *** **** ***** 2、2 34 3、6
4、A（5）= 40 六、编程题
Private Sub Form_Click()
Dim x,a,b,c As Integer X = val（inputbox（“请输入一个两位整数”）） A = int(x/10) B =x mod 10 C =b * 10 + a Print c End Sub
4
相关推荐：
loading