大学VisualBasic程序设计教程试题及答案

1、学习必备欢迎下载1.下列 (A)是 VB的合法常量。A. 100.0B. %100C.D.T2.下列符号中， (C)是 VB的合法变量名。A. 123_aB. a 123C. XYZD.sin(x)3.表示关系表达式10 x<20 的 VB表达式是 (B )。A. 10 x<20B. 10<=x and x<20C. 10<=x or x<20D. 10x and x<204.算术表达式 |x+y|+z5的 VB表达式是 ( B)。A. |x+y|+z5B. abs(x+y)+z55C. abs(x+y)+pow(z,5)D. abs(x+y)+z5.

2、下列赋值语句中，错误的是 ( A)。A. 10x=sin(x)+yB. c=c*yC. x=sin(x)/(20 mod 2+1)D.c=3+sqr(3)6.语句 If x = 1 Then y = 1,下面说法正确的是 (D )。A. x = 1和 y = 1均为赋值语句B. x = 1和 y = 1均为关系表达式C. x = 1为赋值语句， y = 1为关系表达式D. x = 1 为关系表达式， y = 1为赋值语句7. 下列数组声明语句中， (B)正确。A. Dim a2,4 As IntegerB. Dim a(2,4) As IntegerC. Dim a(n,n) As Integ

3、erD. Dim a(2 4) As Integer8. 设 a%=20,b$=" 30" ,则下列输出结果是 " 2030" 的语句是 (D )。A. Print str(A ）B. Print " a" +bC. Print a+bD. Print a & b9. 在一行内写多条语句时，每个语句之间用( B)来分隔。A. , B.:C.、D. ;10. InputBox函数返回值的类型为 (B)。A. 数值B. 字符串C. 变体D. 数值或字符串（视输入的数据而定）二、填空题（每小题2 分，共 10 分）1.表达式 123

4、+23 mod 107+asc(" A") 的值是 _188_。2. 表达式 len(" VB 程序设计 ")的值是 _6_。3. 设文本框的初始值为空，单击窗体并在文本框输入 “ABCD”时，窗体上显示 _ABCD 。Private Sub Form_Click()Print Text1.Text；End Sub4. 下面数组声明语句中，数组包含元素个数为 _30_。 Dim a(-2 to 2,5)5. 以下程序循环的执行次数是 _6_。a=0Do While a<=10a=a+2Loop学习必备欢迎下载三、程序阅读题（每小题6 分，共 18

5、分）1下面的程序段，显示的结果：优秀Dim xx= Int(RnD ） + 5Select Case xCase 5Print "优秀 "Case 4Print "良好 "Case 3Print "及格 "Case ElsePrint "不及格 "End Select2在窗体上建立一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()For n=1 To 20If n Mod 3<>0 then m=m+n3Next nprint nEnd

6、sub程序运行后，如果单击命令按钮，则窗体上显示的内容：213编写如下事件过程：Private Sub Form_Click()Dim aa = Array(1, 2, 3, 4, 5, 6, 7)For i = LBound(a) To UBound(a)a(i) = a(i) * a(i)Print a(i); " "Next iEnd Sub程序运行后，如果单击窗体，则窗体上显示的内容：程序错误四、程序设计题（共62 分）根据图示运行效果，写出每一题的操作步骤。学习必备欢迎下载1.(12 分) 在屏幕显示下图运行效果。要求屏幕上显示“欢迎你到肇庆” 。并在“请输入你对

7、肇庆的印象： ”标签后的文本框 text1 中输入印象；单击“你对肇庆的印象是”按钮，在 Label3 标签显示文本框 Text1 中的内容。操作步骤：（1）在窗体中建立3 个标签 Label1 、Label2 、 Label3 ，Label1.Caption=“欢 迎 你 到 肇 庆 ” ,Label2.Caption=“ 请 输入 你 对 肇 庆 的 印 象 ：” ,Label3.Caption= “ ”；-6分（2）在窗体中建立 1 个文本框 text1 ， text1.text=“ ”； -8分（3）在窗体中建立1 个命令按钮Command1，Command1. Caption=“ 你

8、对肇庆的印象是”；-10分（4）在命令按钮 Command1中，用触发 Click设计代码：Private Sub Command1_Click()Label3 = Text1End Sub-12分2.(23分)编一求两数m、n最大公约数的函数过程f(m,n)；主调程序在两个文本框接收输入数据，在图形框显示结果。操作步骤：（1）在窗体中建立 3 个标签 Label1 、Label2 、Label3 ， Label1.Caption=“输 入m ” ,Label2.Caption=“n”, Label3.Caption=“mn最在公约数”；-3分（2）在窗体中建立 2 个文本框 text1 、t

9、ext1 ，text1.text=“ ”，text2.text=“ ”；-5分（3）在窗体中建立 1 个命令按钮 Command1，Command1Caption=. “ 显示”；-6分（4）在窗体中建立 1 个图形框 picture1 ；-7分（5）在命令按钮 Command1中，用触发 Click设计代码：Private Sub Command1_Click()Dim mm%, nn%mm = Val(Text1)nn = Val(Text2)Picture1.Print mm; Tab(6); nn; Tab(12); f(mm, nn)End Sub-13分（6）设计求两数 m、n 最

10、大公约数的函数过程f(m,n)Function f%(ByVal m%, ByVal n%)If m < n Then t = m: m = n: n = tr = m Mod nDo While (r <> 0)m = n: n = r: r = m Mod nLoopf = n学习必备欢迎下载End Function-23分3.(27 分) 设计一个如下图所示的应用程序。当用户单击“ OK”按钮后，在右边的列表框中显示所选择的信息。操作步骤：（1）在窗体中，设计一个命令按钮command1，command1.caption= “OK ” ;（ 2）在窗体中，设计一个列表框

11、list1 ；（ 3）在窗体中， 设计一个组合框 combo1；。 -3分（ 4 ） 在 窗 体 中 ， 设 计 一 个 框 架fram1 ，fram1.caption= “ CPU”，框架中有3 个单选按钮option1 、 option2 、 option3 ， 且option1.caption=“ PentimIII ”， option2.caption=“ PentimII ”，option3.caption=“Celern”。-5分（5）在窗体中，设计一个框架 fram2 ，fram2.caption=“其它设备” 框架中有 3 个复选框 check1、check2、check3，且

12、 check1.caption= “声卡” , check2.caption= “ Modem ”，check3.caption=“适配器“。 -7分（6）在窗体form 中，用触发load 事件设计代码 ,对组合框添加项目。Sub Form_Load()Combo1.AddItem " 联想 "： Combo1.AddItem " 方正 "Combo1.AddItem "IBM"： Combo1.AddItem "Compao" ：Combo1.AddItem " 兼容机 "End Sub（7）在“ OK ”命令按钮中，用触发Private Sub Command1_Click()List1.ClearList1.AddItem Combo1.TextIf Option1 ThenList1.AddItem "Pentim III"End IfIf Option2 ThenList1.AddItem "Pentim II"End IfIf Option3 ThenList1.AddItem "Celern"End IfIf