单选题编写如下程序：Private Sub Commandl_Click()Dim n As Long，s As String n=InputBox("输入一个数") Do While n＜＞0 Print n＼10 Mod 10；：Print n Mod 10：：n=n＼100 Loop Print sEnd Sub程序运行后，单击命令按钮Commandl，并输入数值123456，则输出结果为
单选题在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下事件过程： Private Sub Command1_Click() CommonDialog1.Filter="All Files(*，*)|*.*|Text Files(*.txt)|*.txt|Executable_ Files(*.exe)|*.exe" CommonDialog1.FilterIndex=3 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileName End Sub 程序运行后，单击命令按钮，将显示一个"打开"对话框，此时在"文件类型"框中显示的是______。 A) All Files(*.*) B) Text Files(*.txt) C) Executable Files(*.exe) D) 不确定
单选题下列数据结构中，能够按照“先进后出”原则存取数据的是
单选题当复选框控件被选中（即复选框控件内显示"√"标记）时，其Value属性的值为( )
单选题文本框的Locked属性被设置为True后产生的效果是
单选题命令按钮Command1的单击事件过程如下： Private Sub Command1_Click() Dim a(10，10)As Integer x=0 For i=1 To 3 Forj=1 To 3 a(i，j)=i*2 Mod j Ifx
单选题窗体上有一个名称为Option1的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程： Private Sub Option1_Click(Index As Integer) … End Sub 下面关于此过程的参数Index的叙述中正确的是( )。 A) Index为1表示单选按钮被选中，为0表示未选中 B) Index的值可正可负 C) Index的值用来区分哪个单选按钮被选中 D) Index表示数组中单选按钮的数量
单选题下列程序段的执行结果是______。 option base
1 private eommand1_c1ick ()
Dim A(10) Dim
E(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) End sub
A. A(5)=20
B. A(5)=30
C. A(5)=40
D. A(5)=50
单选题下列叙述中中正确的是( )。
单选题阅读程序： Sub Form_Click() a=10 : b=15 : c：20 : d=25 Print a;Spc(5)；b；Spc(7)；c Print a；Space(8)；b；Space(5)；c Print c；Spc(1)；"+"；Spc(1)；d； Print Spc(1)；"="；Spc(1)；c+d End Sub 运行上面的程序，单击窗体后，第三行输出的结果是
单选题标准模块中有如下程序代码： Public x As Integer,y As Integer Sub var_pub() x=10：y=20 End Sub 在窗体上有一个命令按钮，并有如下事件过程： Private Sub Command1_Click() Dim x As Integer Call var_pub x=x+10 y=y+10 Print x；y End Sub 运行程序后单击命令按钮，窗体上显示的是______。 A) 10 10 B) 10 20 C) 10 30 D) 20 30
单选题要清除已经在图片框P1中打印的字符串而不清除图片框中的图像，应使用语句( )。
单选题窗体上有1个名称为Picture1的图片框，能将图片文件d:/vb/flower6.jpg正确装入图片框的语句为
单选题在窗体上画一个命令按钮，名称为Command1，然后编写如下代码： Option Base 0 Private Sub Command1_Click() Dim A1(4)As Integer，A2(4)As Integer For k=0 To 2 Al(k+1)=InputBox("请输入一个整数") A2(3-k)=A1(k+1) Next k Print A2(k) End Sub 程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为
单选题假定有如下事件过程：
Private Sub Form_MouseDown(Button As Integer,_
Shift As Integer,X As Single,Y As Single)
If Button=2 Then
PopupMenu popForm
End If
End Sub
则以下描述中错误的是
单选题表达式2*3^2+4*2／2+3^2的值是( )。
单选题在窗体上画—个名为Command1的命令按钮，然后编写如下代码： Option Base 1 Private sub Command1_Click() Dim a a=Array(1,2,3,4) j=1 For i=4 To 1 Step-1 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行上面的程序，其输出结果是______。
单选题以下关于通用对话框的叙述中，错误的是
单选题设窗体上有1个水平滚动条，已经通过属性窗口把它的Max属性设置为1，Min属性设置为100。下面叙述中正确的是( )。
单选题设工程文件包含两个窗体文件Form1．frm、Form2．frm及一个标准模块文件Modulel．bas。两个窗体上分别只有一个名称为Command1的命令按钮。 Form1的代码如下： Public x As Integer Private Sub Form_Load() x=1 y=5 End Sub Private Sub Command1_Click() Form2．Show End Sub Form2的代码如下： Private Sub Command1_Click() Print Form1．x，y End Sub Modulel的代码如下： Public y As Integer 运行以上程序，单击Form1的命令按钮Command1，则显示Form2；再单击Form2上的命令按钮Command1，则窗体上显示的是( )。