西南科技大学网络学院程序设计语言VB试卷.doc

西南科技大学试题 程序设计语言VB 单选题3. Visual Basic6.0中规定窗体文件的扩展名是（B）。 A. for B. frm C. vbp D. bas 10. 设有语句：a = InputBox(请输入数值:,输入示例, 100) 程序执行后,若从键盘上输入数值20并按回车键,则变量a的值是（A）。 A. 字符串20 B. 字符串120 C. 默认值100 D. 数值120 14. 下列可作为Visual Basic变量名的是（D）。 A. A%A B. 4A C. ?xy D. Stemp 21. 表达式2*3^2+2*8/2+3^2的值为（C）。 A. 27 B. 31 C. 35 D. 42 22. 数学表达式 X^2+3XY对应的VB算术表达式是（C）。 A. X*2+3X*Y B. X*X+3XY C. X*X+3*X*Y D. X*X+3*XY 31. 表达式Abs（-3）+int(3.14)的值为（B）。 A. 5 B. 6 C. 0.14 D. 6.14 33. Len(“Friend”)的值是（A）。 A.6 B.7 C.8 D.9 37. 语句if?3*4=10?then?a=1?else?a=2?执行后，a的值为（C）。 A. 12 B. 10 C. 1 D. 2 51. 下列过程调用语句中，被调用的过程一定是Sub子过程的语句是（D）。 A. Pro1(x) B. Print Pro2(x) C. x= Pro3(x) D. Call Pro4(x) 53. 当拖动滚动条中的滚动块时，将触发滚动条的事件是（D）。 A. Move B. SetFocus C. Scroll D. Change 56. 在图片框中加载图形(c:\666.jpg)的方法是（A）。 A. Loadpicture(c:\666.jpg) B. Loadpicture( ) C. print(c:\666.jpg) D. cls 63. 窗体没有（B）属性。 A. Caption B. Text C. Picture D. Top 72. 每当窗体失去焦点时会触发的事件是（C）。 A. Active B. Deactive C. LostFocus D. Initialize 75. 用于显示弹出式菜单的方法名是(D)。 A. ShowOpen B. ShowMenu C. ShowPopup D. PopupMenu 77. 下列叙述中，错误的是（A）。 A. 顺序文件打开后，既可以读又可以写 B. 随机文件打开后，既可以读又可以写 C. 顺序文件打开后，只能读或者只能写 D. 顺序文件和随机文件的打开都使用Open语句 二、填空题 82. 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x = Int(Rnd) + 6 If x ^ 2 25 Then y = x ^ 2 + 5 x = Int(Rnd) + 4 If x ^ 2 25 Then y = x ^ 2 x = Int(Rnd) + 5 If x ^ 2 = 25 Then y = x ^ 2 - 5 Print y End Sub 程序运行后，单击命令按钮，其输出结果为_20。 83. 阅读下列程序段 Private Sub Command3_Click() Print pl(3, 6) End Sub Public Function pl(x As Single, n As Integer) As Single If n = 0 Then pl = 1 Else If n Mod 2 = 1 Then pl = x * x + n Else pl = x * x - n End If End If End Function 程序运行后，单击该命令按钮，屏幕上显示的结果是_3_。 三、综合设计题 92. 编制程序：利用输入框输入10个不同的整数，将它们从小到大排序，并打印输出。 92. Private Sub Command1_Click() Dim a(9) , i, j, m As Integer For i = 0 To 9 a(i) = Val(InputBox(第 i + 1 个数：)) Next i For i = 0 To 9 For j = i + 1 To 9 If a(i) a(j) Then m = a(i) a(i) = a(j) a(j) = m End If