单选题有如下程序： Private Sub Form Click() Dim s As Integer，p As Integer p=1 For i=1 To 4 For i=1 To i s=s+j Next j p=p*s Next i Print p End Sub 程序运行后，单击窗体，则输出结果是
单选题组合框控件是将( )组合成一个控件。
单选题以下关于VB的叙述中，错误的是______。
A.VB采用事件驱动方式运行
B.VB既能以解释方式运行，也能以编译方式运行
C.VB程序代码中，过程的书写顺序与执行顺序无关
D.VB中一个对象对应一个事件
单选题某人编写了如下程序，用来求10个整数(整数从键盘输入)中的最大值： Private Sub Command1_Click() Dim a(10)As Integer，max As Integer For k=1 To 10 a(k)=InputBox("输入一个整数") Next k max=0 For k=1 To 10 Ifa(k)>max Then max=a(k) End If Next k Print max End Sub 运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的，程序需要修改。下面的修改中可以得到正确运行结果的是
单选题在菜单编辑器中建立一个名称为Menu()的菜单项，将其"可见"属性设置为False，并建立若干子菜单，然后编写如下过程： Private Sub Form_MouseDown(Button As Integer, Shift As Integer,X As Single,Y As Single) If Button=1 Then PopupMenu Menu() End If End Sub 则以下叙述中错误的是______。 A) 该过程的作用是弹出一个菜单 B) 右击时弹出菜单 C) Menu()是在菜单编辑器中定义的弹出菜单的名称D) 参数X、Y指明鼠标当前位置的坐标
单选题表达式Int(-15．8)+Fix(-15．8)+Int(15．8)+Fix(15．8)的运算结果是( )。
单选题函数过程F1的功能是：如果参数a为奇数，则返回值为1，否则返回值为0。以下能正确实现所述功能的代码的是( )。
单选题在Visual Basic工程中，可以作为“启动对象”的程序是______。
单选题为计算1+3+5+…+99的值，某人编程如下 k=1 s=0 While k＜=99 k=k+2:s=s+k Wend Print s 在调试时发现运行结果有错误，需要修改。下列错误原因和修改方案中正确的是
单选题下面程序计算并输出的是( )。 Private Sub Command1_Click() Num=10 Sum=0 Do Sum=Sum+Num*Num*Num Num=Num-1 Loop Until Num＜=0 Print Sum End Sub
单选题在窗体上画一个命令按钮，其名称分别为Command1，然后编写如下事件过程： Private Sub Command1_Click( ) a=0 For m=1 To 10 a=a+1 b=0 For j=1 To 10 a=a+1 b=b+2 Next j Next m Print a，b End Sub 程序运行时，单击命令按钮Command1后，窗体上显示的结果为______。
单选题在窗体上有一个名称为Check1的复选框数组(含4个复选框)，还有一个名称为Text1的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的方字罗列在文本框中(如下图所示)。下面能实现此功能的事件过程是()A．PrivateSubCheck1_Click(IndexAsInteger)Text1.Text=""Fork=0To3IfCheckl(k).value=1ThenText1.Text=Text1.Text＆Cheek1(k).Caption＆""双引号中是空格EndIfNextkEndSubB．PrivateSubCheck1_Click(IndexAsInteger)Fork=0To3IfCheck1(k).Value=1ThenText1.Text=Text1.Text＆Check1(k).Caption＆""双引号中是空格EndIfNextkEndSubC．PrivateSubCheck1_Click(IndexAsInteger)Text1.Text=""Fork=0To3IfCheckl(k).Value=1ThenText1.Text=Text1.Text＆Check1(Index).Caption＆""双引号中是空格EndIfNextkEndSubD．PrivateSubCheck1_Click(IndexAsInteger)Text1.Text=""Fork=0To3IfCheekl(k).Value=1ThenText1.Text=Text1.Text＆Check1(k).Caption＆""双引号中是空格ExitForEndIfNextkEndSub
单选题下列数组定义中错误的是
单选题要使单击命令按钮与按下＜Esc＞键实现相同的作用，则应设置( )属性为True。
单选题编写如下程序：
Private Sub Command1_Click()
Dim i As Integer, j As Integer
n=InputBox("输入一个大于1的正整数")
For i=2 To n
For j=2 To Sqr(i)
If i Mod j=0 Then Exit For
Next j
If j＞Sqr(i) Then Print i
Next i
End Sub
该程序的功能是
单选题设窗体上有一个名称为Option1的单选按钮数组（其下标从0开始），共有4个单选按钮，并有下面事件过程：
Private Sub Option1_Click(Index As Integer)
n = Index
If Index < 3 Then n = n + 1
Print Option1(n).Caption
End Sub
程序运行时，单击其中一个单选按钮，则在窗体上显示的是
单选题在窗体上画一个命令按钮，名称为Command1，然后编写如下代码： Option Base 0 Private Sub Command1_Click() Dim Al(4) As Integer, A2(4) As Integer For k = 0 To 2 A1(k + 1) = InputBox (“请输入1个整数”) A2(3 - k) = A1(k + 1) Next k Print A2(k) End Sub程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，输出结果为______ 。
单选题在窗体上画一个名为Command1的命令按钮，其Command1_Click事件过程如下： Sub Command1_Click() Dim student As studtype Dim record_no As Integer record_no=1 With SfUdent ino=12 Strname=“Smith” Strsex=“男” Smark=89 End With Put#1,record_no,student Close#1 End Sub 要求在c：/的随机文件student.dat写入一条记录。应在程序中空行处填入( )使该功能完整。 A) Open“c:/student.dat" For Input As#1 len=len(student) B) Open "c:/student.dat" For Random As#1 len=len(student) C) Open "c:/student.dat“For Output As#1 len=len(student) D) Open "c:/student.dat”For Append As#1 len=len(student)
单选题下列各组变量声明正确的是( )。
单选题在新建一个VisualBasic工程时，将新建窗体的Name属性设置为TheFirst，则默认的窗体文件名为
____
。