重大2017年可视化程序设计（VB）第一次作业（含答案）.docVIP

第1次作业一、单项选择题（本大题共40分，共 20 小题，每小题 2 分）1. 表达x大于10且小于100的关系表达式为（　　）。A. x10 or x100? ? B. 10x100 C. x10 and x100? D. 10x100 2. 关于VB描述错误的是（　　）。A. VB集成开发环境是一组软件工具，集应用程序的设计、编辑、运行调试等于一体 B. VB是面向过程的程序设计语言 C. VB具有事件驱动的编程机制 D. VB的工具箱窗口由被绘制成按钮形式的图标构成。 3. 下列程序段的执行结果为（ ）。 a=100:b=50 If ab Then a=a-b else b=b+a End if Print a A. 10 B. 50 C. 100 D. 200 4. 下列程序段的执行结果是（ ）。 x = Int(Rnd + 4) Select Case x Case 5 Print 优秀 Case4 Print 良好 Case 5 Print 通过 Case Else Print 不通过 End Select A. 优秀? ? ? ? B. 良好 C. 通过 D. 不通过 5. 要使循环体至少执行一次，应使用的循环结构是（）。A. For……next循环?? B. While……wend循环 C. Do……Loop while|until循环? ? ? ? D. do[while|until]……loop循环 6. 当变量x=2,y=5时，以下程序的输出结果为（ ）。 Do until y5 x=x*y y=y+1 loop print x A. 2 B. 5 C. 10 D. 20 7. 当执行以下程序时，在名为lblResult的标签框内将显示（）。 Private Sub cmdlt_click() Dim I,R R=0 For I=1 To 5 Step 1 R=R+I Next I lblResult.Caption=Str（R） End Sub A. 字符串15? ? ?? B. 整数15 C. 字符串5 D. 整数5 8. 对象的属性用来描述对象的特征，它们是一组（　　）。A. 数据? B. 程序? C. 属性名 D. 操作 9. 下列程序运行时，输出星号的行数是（）。 Private sub Form_click（） For i＝ 1 to 10 For j＝ 1 to i Print”＊”； Next j Print Next i End Sub A. 10 B. 20 C. 50 D. 100 10. 下列赋值语句中错误的是（ ）。A. x＝x＋1 B. x＝x＋y?? C. x＋y＝x?? D. x＝4＞6 11. 在窗体上画一个命令按钮，然后编写如下事件过程，程序运行后在输入框中输入car，则输出结果为（ ）。 Private Sub Command1_Click() s = InputBox(Please input Password:) If s car Then Print 您无权使用！ Else Print 谢谢使用！ End If End Sub A. 您无权使用！ B. 谢谢使用！ C. 什么也没有 D. 程序出错 12. 在文本框Text1中输入“（hello）”，则输出结果为（ ）。 Private Sub Text1_KeyPress(KeyAscii As Integer) Dim count1% If Chr(KeyAscii) = ( Then count1 = count1 + 1 ElseIfChr(KeyAscii) = ) Then count1 = count1 - 1 End If If KeyAscii = 13 Then If count1 = 0 Then Print 左右括号配对 ElseIf count1 0 Then Print 左括号多于右括号; count1; 个 Else Print 右括号多于左括号; -count1; 个 End If End If End Sub A. 左右括号配对 B. 左括号多于右括号? ?? C. 右括号多于左括号 D. 程序出错 13. 有如下语句，执行后该段语句的循环次数是（）。 Dim s,I,j as integer For I =1 to 3 For j=3 To 1 Step-1 S=I*j Next j Next I A. 3 B. 4 C. 9 D. 10