End Sub
运行此程序，单击窗体,列表框第4行为_____。 A、d2 B、b2 C、b4 D、d3 答案：A 题号：8323
算法应具备的特征有：确定性、可行性、有穷性、_____性、_____性。 A、步骤有限、可以实现 B、输入、输出
C、确切无误、可以实现 D、步骤有限、确切无误 答案：B 题号：8348
有如下程序代码：
Private Sub Command1_Click( ) s=Sin(3.1415926/2) MsgBox s End Sub
程序运行后，消息对话框显示_____。 A、1
B、1.5708 C、0 D、2 答案：A 题号：8315
计算机算法可以分为两大类：一类是_____算法，另一类是_____算法。 A、计算机辅助设计、财务 B、排序、查找 C、步骤管理、通信
D、数值计算、非数值计算 答案：D 题号：8370
执行以下语句后，a的值为_____。 Dim a As Integer a=1
Do Until a=100 a=a+2 Loop A、溢出 B、100 C、99 D、101 答案：A 题号：8358
在窗体上面一个文本框（其中Name属性为Text1），然后编写如下事件过程： Private Sub Command1_Click ( ) Text1.Text=\ For i=1 To 10 Sum=Sum+i Next i
Text1.Text=Sum End Sub
上述程序的运行结果是_____。 A、在文本框中Text1中输出0 B、出错
C、在文本框中Text1中输出不定值 D、在文本框中Text1中输出55 答案：D
题号：8314
关于语句If x=1 Then y=1，下列说法正确的是_____。 A、x=1为赋值语句，y=l为关系表达式 B、x=1和y=l均为关系表达式
C、x=1为关系表达式，y=1为赋值语句 D、x=1和y=1均为赋值语句 答案：C 题号：8351
在窗体（Name属性为Fomal）上画两个文本框（Name属性分别为Fext1和Text2）和一个命令按钮 （Name属性为Command1），程序如下。执行后结果为_____。 Private Sub Command1_Click() a=Text1.Text+Text2.Text Print a End Sub
Private Sub Form_load() Text1.Text=\ Text2.Text=\End Sub A、132231 B、444 C、123321 D、321123 答案：C 题号：8367
执行下面的程序，单击窗体后在窗体上显示的结果是_____。 Private Sub Command1_Click( ) Dim Str1 As String, Str2 As String Dim Str3 As String, I As Integer Str1= \ For i = 1 To 2 str2 = UCase(Str1) Str1 = Str2 & Str1 Str3 = Str3 &Str1 Str1 = Chr(Asc(Str1)+1) Next I Print str3 End Sub A、EEEE B、eeFF C、EeFF D、eEfF 答案：C 题号：8366
执行了下面的程序后，列表框中的数据项有_____。 Sub Form_Click() For i = 1 To 6 List1.AddItem i Next i For i = 1 To 3 List1.RemoveItem i Next i End Sub A、2 4 6 B、1 3 5 C、1 5
6 D、4 5 6
答案：B 题号：8364
在文本框Text1中输入数字12，Text2中输入数字34，执行以下语句，只有_____。可使文本框Text3中 显示46。
A、Text3. Text=Val(Text1. Text) & Val(Text2.Text) B、Text3. Text=Text1. Text & Text2. Text
C、Text3. Text=Val(Text1. Text)+Val(Text2.Text) D、Text3. Text=Text1. Text+Text2.Text 答案：C 题号：8312
当Form1_Click事件发生时，程序的输出结果是_____。 Private Sub Form_Click() Dim M As Integer,k As Integer,t As Integer M=5 : k=7 Select Case M case 1 To 10 t=M: M=k: k=t Case Else M=k Mod 3 End Select Print M, k, t End Sub A、7 5 5 B、7 5 7 C、5 7 5 D、5 5 7 答案：A 题号：8310
窗体上有一个文本框控件Text1，假设已存在三个整型变量a、b和c，且变量a的值为5，变量b的值为7， 变量c的值为12。以下_____语句可以使文本框内显示的内容为：5+7=12 A、Text1.Text=a+b=c B、Text1Text=\〞
C、Text=\D、Text1=a &\答案：D 题号：8335
下面程序段运行后，显示的结果是_____。 Dim x
If x Then Print x Else Print x +1 A、-1 B、0 C、1
D、显示出错信息 答案： C
题号：8340
下面语句运行后的输出结果是_____。 Private Sub Command1_Click() x=0 Do While x<10 x=x+1 x=x*x Loop Print x End Sub A、30
B、12 C、6 D、25 答案：D 题号：8311 存在如下程序：
Private Sub Command1_Click( ) a=Val(InputBox(\请输入\ b=Val(InputBox(\请输入\ x=a+b If a>b Then x=a-b endif Print x End Sub
运行后，从InputBox对话框中连续输入3和4，输出结果为_____。 A、3 B、34 C、0 D、7 答案：D 题号：8343
以下程序段运行后，消息框的输出结果是 a=sqr(5) b=sqr(3) c=a>b
Msgbox c+2 A、2 B、-1 C、1 D、出错 答案：C 题号：8302
用Msgbox \你好\显示的消息对话框窗口的标题是_____。 A、你好 B、vbokonly C、Hello D、Ok 答案：C 题号：8347 有如下程序：
Private Sub Command1_Click( ) score=65 select Case score Case Is<60 a$=\ Case 60 To 69 a$=\ Case 70 To 79 a$=\ Case 80 To 89 a$=\ Case else a$=\ End Select MsgBox a$ End Sub
程序运行后，消息对话框中显示的内容为_____。 A、D B、B
C、A D、C 答案：A 题号：8321
设a为Integer型变量，s为Single型变量，把3.75赋值给s后，再执行下列某一语句，则在文本框中显示 的结果与执行语句a=s:Text1=a的结果相同的有_____个。 ①a=Int(s):Text1=a ②a=Fix(s):Text1=a ③a=CInt(s):Text1=a
④a=Format(s,\A、4 B、1 C、2 D、3 答案：C 题号：8324 下列程序
Private Sub Command1_Click( ) a=InputBox(\请输入\ b=InputBox(\请输入\ Print a+b End Sub
运行时输入3和4输出的结果是 _____ 。 A、7 B、3+4 C、出错 D、34 答案：D 题号：8305
下列是一个计算1到100的奇数的和的程序，为补充完该程序，填空应为____。 Private Sub Command1_Click ( ) Dim s As Long, x As Integer s=0 For x = _____ Step-2 s=s+x Next x Print s End Sub A、1 To 100 B、100 To 1 C、99 To 1 D、1 To 99 答案：C 题号：8339
下面语句错误的是_____。 A、If a=1 Then c=2
ElseIf a=2 Then c=3 End If
B、If a=1 And b=2 Then c=3 End If
C、If a=1 Then c=2
ElseIf a=2 Then c=3 End If
D、If (a=1,2,3 ) Then c=2 答案：D