单选题为计算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，则默认的窗体文件名为
____
。
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=5 : y=2 Call sub1((x)，y) Print x;y End Sub Private Sub sub1(m，n) t=m : m=n : n=t End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是
单选题假定Picturel和Text1分别为图片框和文本框的名称，下列不正确的语句是
单选题有下列事件过程：
Private Sub Command1_Click()
b=10
Do Until b=-1
a=InputBox("请输入a的值")
a=Val(a)
b=InputBox("请输入b的值")
b=Val(b)
a=a*b
Loop
Print a
End Sub
程序运行后，依次输入数值30,20,10,-1后，输出结果是( )。
单选题运行下列程序： Private Sub Command1_Click( ) x = 0 Do While x ＜ 10 x = x * x + 1 y = y + x Loop MsgBox y End Sub 单击Command1命令按钮后，则弹出的消息对话框中显示________。 (A) 5 (B) 8 (C) 26 (D) 34
单选题VB中有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在Text1文本框中，则每输入一个字母( )。
单选题以下关于菜单的叙述中，错误的是( )。
单选题鼠标拖放控件要触发两个事件，这两个事件是
单选题软件详细设计工具中，{{U}} {{/U}}可以很容易地表示基本结构的嵌套关系。
A. 程序流程图
B. N-S图
C. 问题分析图
D. PDL