单选题窗体上有名称为Text1、Text2的2个文本框，有一个由3个单选按钮构成的控件数组 Option1，如图1所示。程序运行后，如果单击某个单选按钮，则执行Text1中的数值与该单选按钮所对应的运算(乘以1、10或100)，并将结果显示在Text2中，如图2所示，为了实现上述功能，在程序中的问号(?)处应填入的内容是______。 Private Sub Option1 Click(Index As Integer) If Text1.Text＜＞""Then Select Case ? Case 0 Text2.Text=Val(Text1.Text) Case 1 Text2.Text=Val(Text1.Text)*10 Case 2 Text2.Text=Val(Text1.Text)*100 End Select End If End Sub
单选题若要将复选框设置成图形模式，则应设置( )属性值为“1-VbButtonGraphical”。
单选题下列叙述中错误的是( )。
单选题要获得文件列表框中当前被选中的文件的文件名，则应使用哪个属性 ______。
A. Dir
B. Path
C. Drive
D. Filename
单选题有下面程序代码：
Private Sub Command1_Click()
Dim a(3, 3) As Integer
s = 0
For i = 1 To 3
For j = 1 To 3
a(i, j) = i * j
Next j
Next i
For j = 1 To 3
s = s + a(j, 4 - j)
Next j
Print s
End Sub
程序运行时的输出是
单选题在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程：
Private Sub Form_Load()
Text1.Text=" "
Text1.SetFocus
For i=1 To 9
Sum=Sum+i
Next i
Text1.Text=Sum
End Sub
上述程序的运行结果是______。
单选题编写了如下事件过程： Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer) If(Button And 3)=3 Then Print "AAAA" End If End Sub 程序运行后，为了在窗体上输出"AAAA"，应按下的鼠标键是
单选题运行如下程序
Private Sub Command l_Click0
Dim a(5,5) As Integer
For i = 1 To 5
For j = 1 To 4
a(i,j) = i * 2 + j
If a(i,j)/7=a(i, j)/7 Then
n=n+l
End If
Next j
Next
Print n
End Sub
n的值是______。
单选题Visual Basic根据计算机访问文件的方式将文件分成三类，其中不包括{{U}} {{/U}}。
A.顺序文件
B.Unix文件
C. 二进制文件
D.随机文件
单选题程序代码如下，当单击窗体上的Command1控件时，窗体上显示的结果是( )。 Private Sub Command1_Click() Dim i As Integer,k As Integer Dim a(9) As Integer,p(2)As Integer k=5 For i=0 To 9 a(i)=i Next i For i=0 To 2 p(i)=a(i*(i+1)) Next i For i=0 To 2 k=k+p(i)*2 Next i Print k End Sub
单选题Visual Basic最多可出现______级菜单。
单选题设有如下程序：PrivateSubForm_Click()Clsa$="123456"Fori=1To6PrintTab(12-i);______NextiEndSub程序运行后，单击窗体，要求结果如图所示，则应填入的内容为()。
单选题能被对象所识别的动作与对象可执行的动作分别称为对象的( )。
单选题窗体上有名称分别为Textl、Text2的2个文本框，要求文本框Textl中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在下 划线处应填入的内容是( )。 Private Sub Textl_ostFocus() Call Checklnput(Textl,500) End Sub Private Sub Text2_LostFocus() Call Checklnput(Text2,1000) End Sub Sub Checklnput(tAs__,x AS Integer) IfVal(t.Text＞X Then MsgBox“请重新输入!” End If End Sub
单选题窗体上有一个图片控件和一个按钮控件，下列程序执行的结果是( )。 Private Sub Command1_Click() Picture1.Picture=LoadPicture("c:/picture.jpg") Picture1.Cls Picture1.Print"picture" End Sub
单选题下列操作中不能向工程添加窗体的是
单选题为了清除列表框中指定的项目，应使用的方法是
单选题在窗体上有个命令按钮，然后编写如下事件过程：
m=InputBox("enter the first integer")
n=InputBox("enter the second integer")
Print n+m
程序运行后，单击命令按钮，先后在两个输入框中分别输入“1”和“5”，则输出结果为( )。
单选题设工程中有2个窗体：Form1和Form2，每个窗体上都有一个名称为Text1的文本框。若希望把Form1上文本框中的内容复制到Form2上的文本框中，应进行的操作是
单选题产生[10，27]之间的随机整数的Visual Basic表达式是( )。 A) Int(Rnd(1)*27)+10 B)Int(Rnd(1)*28)+10 C)Int(Rnd(1)*27)+11 D)Int(Rnd(1)*28)+11