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

西南科技大学试题 程序设计语言VB

一、单选题

3. Visual Basic6.0中规定窗体文件的扩展名是（B）。

A. for B. frm C. vbp D. bas

10. 设有语句：a = InputBox(\请输入数值:\输入示例\程序执行后,若从键盘上输入

数值20并按回车键,则变量a的值是（A）。 A. 字符串\B. 字符串\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(\B. Loadpicture( ) C. print(\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(\第\个数：\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 Next j Next i

For i = 0 To 9 Print a(i); Next i End Sub

102. 编写程序实现：在窗体上单击按钮1，可通过输入对话框输入两个字符串；单击按钮

2，将输入的两个字符串连接为一个字符串，并计算该字符串长度，然后在消息框中显示出来。

102. Dim a, b, c As String

Private Sub Command1_Click()

a = InputBox(\请输入第一个字符串\b = InputBox(\请输入第二个字符串\End Sub

Private Sub Command2_Click() c = a + b

MsgBox \连接后的字符串为：\。长度为：\End Sub

104. 编一程序：利用输入对话框输入两个正整数，求最大公约数。 104. Private Sub Command1_Click()

m = Val(InputBox(\第一个数：\第二个数：\If n > m Then t = m: m = n: n = t End If r = m - n

Do While r > 0 If n < r Then t = n: n = r: r = t End If

m = n: n = r: r = m - n Loop Print n End Sub

线性代数(经济数学2)

?(1??)x1?2x2?4x3?0?5. 问?取何值时? 齐次线性方程组?2x1?(3??)x2?x3?0有非零解？

?x?x?(1??)x?03?12系数行列式为

1?? D??241??21?3??1??041（4分） 1??2133

3??1?11??2

?(1??)?(??3)?4(1??)?2(1??)(?3+?) ?(1??)?2(1??)???3? （6分） 令D?0? 得

??0? ??2或??3?

于是? 当??0? ??2或??3时? 该齐次线性方程组有非零解?

4110. 计算

10041解

100412512021202142的值。 072?104?1?1002?122?(?1)4?3（5分）

2?14103?1410125144?12c2?c312??????0c4?7c3103700?110c?c991023?12?2??????00?2?0?（10分）

c?1c1031412317171415. 用初等变换法解矩阵方程 AX=B 其中

?11?1??1?1????? A??022? B??11?

?1?10??21?????解

∴ X=AB

-1

（10分）

18. 设n阶方阵A可逆，试证明A的伴随矩阵A*可逆，并求(A*)?1。

证： 因为A可逆，所以|A|≠0，（1分） 且A*

?1?1A* A-1

于是有 A=|A|A （3分）

对上式两边取行列式，并由方阵行列式性质（2）（注意|A|是一个数）得

*-1n-1

|A|=||A|A| =|A||A| （5分）