2014内蒙对口升学计算机VB模拟试题六带答案.doc

40 对窗体编写如下代码： Option Base 1 Private Sub Form_KeyPress（KeyAscii As Integer） a=Array（237，126，87，48，498） m1=a（1） m2=1 If KeyAscii=13 Then For i=2 To 5 If a（i）》m1 Then m1=a（i） m2=i End If Next i End If Print m1 Print m2 End Sub 程序运行后，按回车键，输出结果为______。 A）48 4 B）237 1 C）498 5 D）498 VB语言程序设计综合练习二 填空题A 1. 在VB中，用来描述一个对象外部特征的量称之为对象的_____。 2. 窗体_____决定了窗体的外观。 3. 表达式(?10)^ ?2的值是_____。 4. 执行_____语句，可以清除Picture1图片框内的图片。Picture1.picture=LoadPicture( ) 5. 当复选框被选中时，其Value值为_____。 6. 在窗体画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a() ReDim a(4) For i = 1 To 4 a(i) = i Next i ReDim Preserve a(6) For k = 1 To 6 Print a(k); Next k Print “end” End Sub 程序运行后,单击Command1命令按钮,则程序输出的结果是_____. 7. 在模块文件中的声明部分用Global或_____关键字声明的变量为全局变量。 8. 将通用对话框的类型设置为“字体”对话框可以使用_____方法。 9. 下列程序的功能是：当按下鼠标左键并在窗体上移动时，在鼠标经过的位置画点，松开鼠标移动时，不执行画点操作。当单击鼠标右键时，清除窗体上的内容。请在横线的上方填入适当的内容，将程序补充完整。 Dim flag As Boolean Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X ! ,Y !) flag = True If _____Then Cls End If End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If flag Then PSet (X, Y) 画点语句 End If End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) _____ End Sub