单选题下列描述中正确的是
单选题当在滚动条内拖动滚动块时触发( ) A．KeyUp事件 B．KeyPress事件 C．Scroll事件 D．Change事件
单选题若在某窗体模块中有如下事件过程：
Private Sub Command1_Click(Index As Integer)
End Sub
则以下叙述中正确的是______。
单选题在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框 的Text属性设置为空白，然后编写如下事件过程：
Private Sub Command1_Click()
a = InputBox("Enter an integer") b = InputBox("Enter an integer") Text1.Text = b + a
End Sub 程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示 的内容是______。
单选题当对命令按钮的Picture属性装入.bmp图形文件后，命令按钮上并没有显示所需的图形，原因是没有对某个属性设置为1，该属性是{{U}}
{{/U}}。
A.MousePicture
B.Style
C.DownPicture
D.DisabledPicture
单选题语句Print Format(Int(12345．6789*100+0．5)／100，"0000，0．00")的输出结果是( )。
单选题设整型数组a有10个元素，其中前9个元素中数已按小到大顺序排列，下面程序段的作用是 x = InputBox("请输入一个整数") k = 8 Do If x >= a(k) Then a(k + 1) = x Exit Do Else a(k + 1) = a(k) If k = 0 Then a(k) = x k = k - 1 End If Loop Until k < 0
单选题设有如下变量声明：
Dim TestDate As Date
则为变量TestDate正确赋值的表达式是
单选题下列语句用来设置窗体Form1的属性，其中在运行时不能正确操作的语句是________。
单选题下列不是Visual Basic文件的是______。
单选题在窗体上画一个文本框，然后编写如下事件过程。当该程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为 ______。
Private Sub Text1_KeyPress＜KeyAscii As Integer)
Dim char as String
char=Chr(KeyAscii)
Text1.Text=String(5，KeyAscii)
End Sub
单选题以下关于多重窗体程序的叙述中，错误的是（ ）。
单选题窗体上有Text1、Text2两个文本框及一个命令按钮Command1，编写下列程序： Dim y As Integer Private Sub Command1_Click() Dim X As Integer x＝2 Text1．Text＝p2(p1(x)，y)：Text2．Text＝p1(x) End Sub Private Function p1(x As Integer)As Integer x＝x＋y＝x＋y p1＝x＋y End Function Private Function p2(x As Integer,y As Integer) As Integer p2＝2*x＋y End Function 程序运行后，第一次单击和第二次单击命令按钮后，文本框Text1和Text2内的值分别是( )。
单选题为了保存数据，需打开顺序文件“E：＼UserData．txt”，以下正确的命令是
单选题下面程序的执行结果是( )。 Private Sub Command1_Click( ) a=0 k=1 Do While k ＜ 4 x=k^k^a k=k+1 Print x ; Loop End Sub A) 1 4 27 B) 1 1 1 C) 1 4 9 D) 0 0 0
单选题窗体上有1个名称为Text1的文本框；1个名称为Timer的计时器控件，其Interval属性值为5000，Enabled属性值是True。
Timer1的事件过程如下：
Private Sub Timer1_Timer()
Static flag As Integer
If flag=0 Then flag=1
flag=-flag
If flag=1 Then
Text1.ForeColor=&HPP& '&HFF&为红色
Else
Text1.ForeColor=&HC000& '&HC000&为绿色
End If
End Sub
以下叙述中正确的是
Ａ) 每次执行此事件过程时，flag的初始值均为0
Ｂ) flag的值只可能取0或1
Ｃ) 程序执行后，文本框中的文字每5秒改变一次颜色
Ｄ) 程序有逻辑错误，Else分支总也不能被执行
单选题阅读程序： Option Base 1 Dim art()As Integer Private Sub Form_Click() Dim i As Integer，j As Integer ReDim arr(3,2) For i=1 To 3 For j=1 To 2 arr(i,j)=i*2+j Next Next ReDim Preserve ale(3,4) For j=3 To 4 arr(3,j)=j+9 Next Print arr(3,2)+arr(3,4) End Sub 程序运行后，单击窗体，输出结果为
单选题为把圆周率的近似值3.14159存放在变量pi中，应该把变量pi定义为( )。
单选题使用通用对话框控件打开字体对话框时，如果要在字体对话框中显示样式和颜色，必须设置通用对话框控件的Flags属性为______。
单选题为了使每秒钟发生一次计时器事件，可以将其Interval属性设置为