VisualBasic程序设计》试题及其答案

Visual Basic程序设计综合练习题一及答案一、单项选择题（每题3分，共45分）1．无论何种控件，共同具有的属性是（）。

A．Text 属性B．Caption属性C．Name属性D．Autosize属性2．当需要上下文帮助时，选择要帮助的内容，希望出现MSDN窗口及显示所需的帮助信息，应按的键是（）。

A．Help B．F10 C．F1 D．Esc3．为了保存一个Visual Basic应用程序，下列说法正确的是（）。

A．只保存窗体文件（.frm）B．只保存工程文件（.vbp）C．分别保存工程文件和标准模块文件(.bas)D．分别保存工程文件、窗体文件和标准模块文件4．在Visual Basic中，变量的默认类型是（）。

A．Integer B．VariantC．Double D．Currency5．Timer控件可用于后台进程中，可在Timer事件内编程，要停止触发Timer事件，需要设置的属性是（）。

A．Interval=0或Enabled=False B．Interval=0或Visible=False C．Enabled=False 或Enabled=0 D．Interval=0且Enabled=False6．要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对下列（）属性设置就有效。

A．MaxButton B．BorderSyleC．Width D．MinButton7．有程序代码如下：Text1.Text = "Visual Basic"，则Text1，Text ，和"Visual Basic"分别代表（）。

A．对象，值，属性B．对象，方法，属性C．对象，属性，值D．属性，对象，值8．要设置命令按钮的背景图形，必须设置的两个属性是（）。

A．Value和Icon B．Style和IconC．Caption和Picture D．Style和Picture9．在VB中，下列合法的变量名是（）。

《Visual Basic 程序设计》参考答案第 1 章程序设计及VB 概述一、选择题1、C 2、A 3、A 4、C 5、B 6、C 7、D 8、A 9、D 10、C 二、填空题1、对象Windows（不确定）事件驱动2、窗体工程3、查看对象查看代码4、CmdExam Click lbldisp 5、“启动”按钮“运行”菜单“启动”命令F5 6、Click 事件过程7、Cancel 8、Label1第 2 章Visual Basic 程序设计基础一、选择题1、A 2、C 3、D 4、B 5、C 6、A 7、B 8、A 9、B 10、D 二、写出下列表达式的值1、 6 2、0 3、8 4、False 5、False 6、T rue 7、－1 8、16.7 9、"C" 10、"Basic" 11、"VISUAL " 12、 5 三、将代数式改写成VB 表达式1、(a + b) / (c * d - Sqr(1 - a * a)) + 5 ^ (1 / 3) * Cos(3.14159 / 3) ^ 2 2、Sin(45 * 3.14159 / 180) + Abs(x - y) 3、2 * Exp(x) + Log(x * y) 4、(Log(50) / Log(10) - Log(20)) / (9 * Exp(3)) 5、Abs(x) >= Y And Abs(x) <> Z 6、m < 100 And m >= 0 7、(A Mod 3 = 0) Or (A Mod 7 = 0) 8、(N Mod 4 = 0 And N Mod 100 <> 0) Or (N Mod 400 = 0)第 3 章程序的基本控制结构一、选择题1、⑴ C ⑵ D 2、B 3、B 4、B 5、C 6、A 7、D 8、BD 9、C 10、D 11、A 12、A 13、D 14、A 15、A 16、D 二、填空题1、15 15 2、x= 3 y=103、1 2 3 4 5 6 7 8 9 0 * * * * * * * * * * * * * * *4、⑴ 12345 ⑵ 543215、ABCDE6、327、⑴ k ⑵ If x < n Then n = x : nk = i ⑶ mk ⑷ m 8、⑴ exit for ⑵ f1 And f2 Then ⑶ f1 = f2 9、⑴n ⑵ Len(CStr(nn) - 1) ⑶ c-1 ⑷ Loop Until nn = 0 ⑸ n = m Then 10、⑴ Opt1.Value = T rue ⑵Opt2.Value ⑶ Opt3.Value ⑷ CStr(k) ⑸ k-10 ⑹ Asc("A")第 4 章数组一、选择题1、B 2、A 3、D 4、C 二、填空题1、Option Base 1 2、ReDim Preserve 3、Lbound UBound 4、可变5、Index 6、4 11 7、27 8、arr(1) Fmin=1 min = arr(i) 第 5 章应用程序界面设计一、选择题1、C 2、B 3、A 4、B 5、D 6、D 7、D 8、DA 9、BC 10、A 11、A 12、B 13、A 14、A 15、A二、填空题1、通用2、Style 3、Print lstEx.List(2) 4、CmbEx.ListIndex = 4 5、“－” 6、PopupMenu 7、Enabled Interval T rue >0 8、窗体、图片框、框架9、MultiLine ScrollBars 10、AutoSize Stretch 11、Image1.Picture = LoadPicture("c:\pic1.jpg") 12、Change 13、另存为14、顶级15、⑴ListIndex T ext 或List(List1.ListIndex) ⑵List(2) ⑶x , Lst1.ListIndex +1 ⑷ListCount – 1 Selected RemoveItem i第 6 章过程一、选择题1、C 2、C 3、C 4、A 5、D 二、填空题1、内存空间或者：地址2、传值传址3、Sub T estAB(a As Single, b!, c As Boolean) 4、过程名＝<表达式> 5、局部变量6、Static 7、本过程模块整个工程8、模块级工程级9、过程调用自身递归结束递归描述10、 6 8 4 6 4 3 11、0.6 1.8 12、 2 5 8 11 13、 3 1 3 0 1 3 4 1 3 0 1 3 1 1 3 第7 章鼠标和键盘填空题1、11 2、MouseDown MouseUp MouseMove 3、Shift Ctrl Alt 4、MouseDown MouseUp MouseUp 5、A a 6、Ctrl + Alt + 单击鼠标右键7、Form-66 T ext-66第8 章文件一、选择题1、C 2、B 3、A 4、D 5、D 二、填空题1、程序文件和数据文件顺序文件和随机文件ASCII 文件和二进制文件2、顺序随机二进制3、Output Append Input Random Binary Random 4、打开（建立）读/写关闭5、Input# LineInput# Input() Get Put 6、Input As #10 Output As #20 7、Dir1.Path Drive1_Change()第9 章多窗体和多文档界面一、选择题1、C 2、C 3、D 4、C 5、C 二、填空题1、Load UnLoad 2、Show Hide 3、无效4、图片框5、图片框、计时器第10 章文本和图形选择题1、A 2、C 3、A 4、B 5、C第 3 章编程题参考答案1、Private Sub Form_Click() Dim a%, b%, c% Dim d!, x1!, x2% a = InputBox("a=") b = InputBox("b=") c = InputBox("c=") d = b * b - 4 * a * c If d < 0 Then '虚根Print "x1="; -b / (2 * a); "+"; Sqr(-d) / (2 * a); "i" Print "x2="; -b / (2 * a); "-";Sqr(-d) / (2 * a); "i" Else Print "x1="; (-b + Sqr(d)) / (2 * a) Print "x2="; (-b - Sqr(d)) / (2 *a) End If End Sub2、Private Sub Form_Click() Dim n As Integer For n = 1 T o 100 If n Mod 8 <> 0 And n Mod3 <> 0 Then Print n End If Next '实根End Sub3、Private Sub Form_Click() Dim n%, x%, n1%, n2% n = InputBox("n=") For i = 1 T o n x = InputBox("x=") If x > 0 Then s1 = s1 + x: n1 = n1 + 1 If x < 0 Then s2 = s2 + x: n2 = n2 + 1 Next i Print Print "正数之和为："; s1, "个数为："; n1 Print "负数之和为："; s2, "个数为："; n2 End Sub4、Private Sub Form_Click() x = InputBox("x=") i = 2 Print x; "="; Do While x >= i If x Mod i = 0 Then If x = i Then Print i Else Print i; "*"; x = x \ i Else i = i + 1 End If Loop End Sub5、Private Sub Form_Click() Dim x%, i%, n% For i = 1 T o 20 x = Int(100 * Rnd) If x Mod 2= 0 Then Print x; n = n + 1 End If Next Print Print "偶数个数为："; n End Sub6、Private Sub Form_Click() Dim x!, y! x = InputBox("x=") If x <= -1 Then y = Exp(-x) ElseIf x < 1 Then y = x * x + x + 1 Else y = Log(x) / Log(10) End If Print y End Sub7、Private Sub Command1_Click() If Option1.Value And Option3.Value Then p = 22 Label1.Caption = "去城市 1 的硬座票价：" & p End If If Option1.Value And Option4.Value Then p = 50 Label1.Caption = "去城市 1 的硬卧票价：" & p End If If Option2.Value And Option3.Value Then p = 88 Label1.Caption = "去城市 2 的硬座票价："& p End If If Option2.Value And Option4.Value Then p = 180 Label1.Caption = "去城市 2的硬卧票价：" & p End If End Sub8、（1）单循环For i = 1 T o 30 t = t + i Sum = Sum + t Next Print "sum="; Sum 二重循环For i = 1 T o 30 t = 0 For j = 1 T o i t = t + j Next j Sum = Sum + t Next i Print "sum="; Sum （2）i = 1 Do t = t + i Sum = Sum + t i = i + 1 Loop Until t > 200 Print "sum="; Sum9、Private Sub Form_Click() For m = 100 T o 999 tem = m gw = tem Mod 10 tem = tem \ 10sw = tem Mod 10 bw = tem \ 10 If (gw + sw) Mod 10 = bw Then '满足第一个条件flag = True '判断其是否为素数For i = 2 T o Sqr(m) If m Mod i = 0 Then flag = False: Exit For Next i If flag Then Print m; n = n + 1 '按每行 5 个输出If n Mod 5 = 0 Then Print End If End If Next m End Sub第 4 章编程题参考答案1. Option Base 1 Private Sub Form_Click() Dim A, B Dim C(10) As Integer A = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) B = Array(2, 4, 6, 8, 10, 1, 3, 5, 7, 9) For i = 1 T o 10 C(i) = A(i) * B(i) Print C(i); Next i End Sub2. Option Base 1 Private Sub Form_Click() Dim a(10) As Integer For i = 1 T o 10 a(i) = InputBox("输入整数") Print a(i); Next Print For i = 1 T o 10 \ 2 temp = a(i) a(i) = a(11 - i) a(11 - i) = temp Next i For i = 1 T o 10 Print a(i); Next End Sub3. Option Base 1 Dim a() As Integer Dim n As Integer Private Sub Form_Click() Randomize 10: n = InputBox("n=") If n < 10 Then GoT o 10 ReDim a(n) For i = 1 T o n a(i) = Int(100 * Rnd) Print a(i); Next Print For i = 1 T o n – 1 For j = i + 1 T o n If a(j) > a(i) Then temp = a(i): a(i) = a(j): a(j) = temp End If Next j Next i For i = 1 T o n Print a(i); Next Print End Sub4. Private Sub Command1_Click() Dim x As Integer, y As Integer ReDim Preserve a(n + 1) '插入操作'排序x = InputBox("输入要插入的数") For k = 1 T o n If x > a(k) Then Exit For Next k For i = n T o k Step -1 a(i + 1) = a(i) Next i a(k) = x For i = 1 T o n + 1 Print a(i); Next i Print y = InputBox("输入要删除的数") For k = 1 T o n + 1 If y = a(k) Then Exit For Next For i = k + 1 T on + 1 a(i - 1) = a(i) Next For i = 1 T o n Print a(i); Next Print End Sub '删除操作5. Option Base 1 Private Sub Form_Click() '第(1)小题Dim a(5, 5) As Integer Dim Max As Integer, timax As Integer, tjmax As Integer For i = 1 T o 5 For j = 1 T o 5 a(i, j) = Int(90 * Rnd + 10) Print a(i, j); Next j Print Next i '第(2)小题Max = a(1, 1): timax = 1: tjmax = 1 For i = 1 T o 5 For j = 1 T o 5 If a(i, j) > Max Then Max = a(i, j) timax = i tjmax = j End If Next j Next i Print "最大元素为："; Max; "其位置在第"; timax; "行"; tjmax; "列" '第(3)小题s = 0 For i = 1 T o 5 For j = 1 T o i Print a(i, j); s = s + a(i, j) Next j Print Next i Print "下三角元素和为"; s '第(4)小题For i = 1 T o 5 temp = a(i, 2): a(i, 2) = a(i, 4): a(i, 4) = temp Next i For i = 1 T o 5 For j = 1 T o 5 Print a(i, j); Next j Print Next i End Sub6. Option Base 1 Private Sub Form_Click() Dim a() As Integer n = Val(InputBox("n=")) ReDim a(n, n) For i = 1 T o n a(i, i) = 1: a(i, 1) = 1 Next For i = 3 T o n For j = 2 T o i - 1 a(i, j) = a(i - 1, j - 1) + a(i - 1, j) Next j Next i For i = 1 T o n For j = 1 T o i Print a(i, j); Next j Print Next i End Sub 第8 章编程题参考答案1、Option Base 1 Private Sub Form_Click() Dim a(5, 5) As Integer Open "d:\a1.txt" For Output As #1 For i = 1 T o 5 For j = 1 T o 5 a(i, j) = Int(90 * Rnd + 10) Print #1, a(i, j); Next j Print #1, Next i Max = a(1, 1) For i = 1 T o 5 For j = 1 T o 5 If a(i, j) > Max Then Max = a(i, j) End If Next j Next i Print #1, "Max="; Max Close #1 End Sub2、Private Sub Command1_Click() Open "d:\file1.txt" For Input As #1 Do While Not EOF(1) Line Input #1, str1 T ext1 = T ext1 + str1 + Chr(13) + Chr(10) Loop Close #1 End Sub Private Sub Command2_Click() '修改文本框内容后保存文件'读出文件内容并在文本框中显示Open "d:\file2.txt" For Output As #2 Print #2, T ext1 Close #2 End Sub3、标准模块：T ype T elBook Num As String * 5 Name As String * 4 T elNum As String * 8 Addr As String * 30 End T ype 窗体模块：Dim T el As T elBook Private Sub cmdSearch_Click() Open "d:\T elbook.txt" For Random As #1 Len = Len(T el) i = 1 flag = 0 Do While Not EOF(1) Get #1, i, T el If T el.Num = T rim(txtNum.T ext) Then txtName.T ext = T txtT elNum.T ext = T el.T elNum txtAddr.T ext = T el.Addr flag = 1 Exit Do End If i = i + 1 Loop Close #1 If flag = 0 Then MsgBox "没有找到所输入的编号！" End If End Sub。

第1章习题一、选择题1. B2. A3. B4. A二、填空题1. 事件驱动或消息驱动2. 工程资源管理器、窗体三、问答题1. 11个菜单项。

文件菜单包括新建工程、打开工程、添加工程、移除工程、保存工程、工程另存为、保存窗体文件、窗体文件另存为、打印、打印设置、生成可执行文件等命令项；编辑菜单（命令项略，以下同）、视图菜单、工程菜单、格式菜单、调试菜单、运行菜单、查询菜单、图表菜单、工具菜单、外接程序菜单、窗口菜单、帮助菜单。

2. 可以自行定义。

标准工具栏中有添加工程、添加窗体、菜单编辑器、打开工程、保存工程、剪切、复制、粘贴、查找、撤销、恢复、启动、中断、结束、工程资源管理器、属性窗口、窗体布局窗口、对象浏览器、工具箱、数据视图窗口等按钮。

四、编程题（略）第2章习题一、选择题1. A二、练习题1. S1. 把x赋值给同类型变量t；S2. 把y赋值给x；S3. 把t赋值给y。

2. S1. 输入a、b、c；S2. 如果a<b，则交换a与b的数据；S3. 如果a<c，则交换a与c的数据；S4. 如果b<c，则交换b与c的数据；S5. 输出a、b、c。

3. S1. 输入整数N；S2. 给整数K赋值2；S3. 如果K大于N-1，则转S6；S4.如果N除以K 的余数为0，则转S7；S5. K加1再赋值给K，转S3.；S6. 如果K大于N-1，则N为素数；否则N不是素数。

4. S1. 输入整数N；S2. 将N赋值给K；S3. 给整数nx赋值0；S4. 计算nx乘以10加K除以10的余数，再赋值给nx；S5. 计算K除以10的整数商，赋值给K；S6. 如果K>0，则转S4；否则，转S7；S7. 如果N=nx，则N为回文数，否则N不是回文数。

5.6.第3章习题一、选择题1. D2. C3. A4. B5. D6. A7. B8. D9. B 10. D 11. A . 12. C 13. C 14. C二、填空题1. 标题、引用2. ②④⑤3. 64. GotFocus、Resize5. AddItem、Clear6. Label，CommandButton，OptionButton，CheckBox，Frame、TextBox，ListBox，ComboBox7. PictureBox，Frame8. OptionButton，CheckBox，HScrollBar，VScrollBar、OptionButton、CheckBox，HScrollBar，VScrollBar三、问答题1. 答：对象的只读属性的属性值（如名称属性）只能在设计界面时在属性窗口进行设置；非运行属性的属性值则既可在设计界面时在属性窗口进行设置，也可通过程序代码进行设置与修改。

Visual Basic考试试题带答案1. 应用程序打包后，其包文件的后缀为（ B ）。

A. .exeB. .cabC. .txtD. .ocx2. 在VB中，要想快速获得某个相关控件或语句的帮助信息，一般可首先选中该控件或语句，然后按的键是（ B ）A. HelpB. F1C. F10D. Enter3. 在界面设计时，双击窗体中的对象后，VisualBasic将显示的窗口是（ C ）。

A. 立即窗口B. 属性窗口C. 代码窗口D. 工程资源管理器窗口4. 后缀为.frm的文件表示VB 的（ A ）。

A. 窗体文件B. 类模块文件C. 工程文件D. 标准类模块文件5. 要改变控件的高度，应该修改控件的（ D ）属性。

A. TopB. LeftC. WidthD. Height6. 能够改变标签Label控件显示标题的属性是（ A ）。

A. CapionB. NameC. ClickD. Text7. 与传统的程序设计语言相比，Visual Basic最突出的特点是（ C ）A. 结构化程序设计B. 程序开发环境C. 事件驱动编程机制D. 程序调试技术8. 下列赋值语句正确的是（ B ）A. B+C =AB. A=B+CC. -B=AD. 5=A+B9. 应用程序设计完成后，应将程序保存，保存的过程是（ D ）。

A. 只保存窗体文件即可B. 只保存工程文件即可C. 先保存工程文件，之后还要保存工程文件D. 先保存窗体文件（或标准模块文件），之后还要保存工程文件10. 在Visual Basic中，要使一个窗体不可见，但不从内存中释放，应使用的语句是（ B ）。

A. ShowB. HideC. LoadD. UnLoand11. 如果对象的名称为Mytext，而且对象有一个属性Text，那么在代码中引用该属性的正确格式是（ B ）A. Text.MytextB. Mytext.TextC. Mytext.(Text)D. Mytext*Text12. 要在窗体Form1内显示“myfrm”，使用的语句是（ C ）A. Form.caption="myfrm"B. Form1.caption="myfrm"C. Form1.print "myfrm"D. Form. print "myfrm"13. 每建立一个窗体，工程管理器窗口中就会增加一个（ B ）。

中南大学网络教育课程考试复习题及参考答案Visual Basic程序设计(专科)一、单项选择题：1.Visual Basic程序中的注释所使用的字符是 [ ]A. 'B. :C. \D. _2.若要设置定时器的定时间隔设为10秒，应将( )属性值设为10000。

[ ]A. IntervalB. ValueC. EnabledD. Text3.算法一般都可以用( )三种控制结构组合而成。

[ ]A.循环、分支、递归B.顺序、循环、嵌套C.循环、递归、选择D.顺序、选择、循环4.下列可调整图片框的大小以适合图片的属性是 [ ]A.stretchB. autosizeC. pictureD. oledropmode5.用下面的语句所定义的数组的元素个数是 [ ] Dim arr(3 to5,-2 to 2)A.20B. 12C.15D. 246.下列不属于常量的是 [ ]A. 12B. “ch”C. abcD. 1.237.InputBox函数的返回值类型为 [ ]A.数值型B.字符型C.逻辑型D.变体型8.默认情况下，语句：Dim student(10,5) 定义的数组有( )个元素。

[ ]A.50B.6C.15D.669.Abs( -3.14)的值是 [ ]A. 3B. -3C.-3.14D. 3.1410.要让菜单项无效，应将( )属性值设置为 False。

[ ]A. VisibleB. EnabledC. MoveableD. Checked11.以下代码，循环( )次 [ ]Dim nFor n = 1 To 50 Step 5sult.Text = Str(n)NextA.12B.10C.50D.1112.表达式 Mid("Beijing2008",4,4)的值是 [ ]A. BeijB. jingC. inj2D. 200813.A$="+3.14+2"，则Val（A$）的值为 [ ]A. +3.14+2B. +5.14C. 3.14D. 5.1414.语句：Dim student(10,5 to 100) 定义的是一个( )维数组。

《Visual Basic程序设计基础》教材习题参考答案第1章Visual Basic 6.0程序设计概述一、判断题1．√2．√3．×说明：同类控件（如两个标签）相互重叠，设计时可以设置“置前”、“置后”属性。

4．√5．×6．√7．×8．√9．√10．×11．√12．√13．×14．√15．×16．√17．√18．√19．√20．√二、选择题1. C2. B 3．D 4．C 5．B 6．A 7．D 8．A 9．B 10．A 11．C 12．D三、填空题1．对象、事件2．属性、方法、事件3．控件、屏幕（Screen）4．对象5．Left、Top 6．属性、<对象名>.<属性名>=<表达式> 7．网格8．F orm19．Load或Initialize或Resize或Activate（自动执行的先后顺序也按此排列）10．Activate、Deactivate四、程序设计题程序1．界面设计参看图10-1、10-2以及表10-1。

表10-1 实例2各控件的主要属性设置过程设计如下：Private sub Form_Click()Command2.Enabled = FalseEen SubPrivate Sub Command1_Click()Label2.Visible = FalseLabel1.Caption = Text1.Text + ": 欢迎使用" + Label1.CaptionText1.Visible = FalseCommand1.Enabled = False: Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click()EndEnd Sub程序2．界面设计略，过程设计如下：Private Sub Command1_Click() '字体变大Form1.FontSize = Form1.FontSize + 3Form1.Cls: Print "欢迎使用VB"End SubPrivate Sub Command2_Click() '字体变小Form1.FontSize = Form1.FontSize - 3Form1.Cls: Print "欢迎使用VB"End SubPrivate Sub Command3_Click() '字体加粗Form1.FontBold = TrueForm1.Cls: Print "欢迎使用VB"End SubPrivate Sub Command4_Click() '字体不加粗Form1.FontBold = FalseForm1.Cls: Print "欢迎使用VB"End Sub运行时，不得连续、过多次单击“字体变小”按钮，因为当FontSize属性值小于0会产生适时错误。

Visual Basic程序设计综合练习题一及答案一、单项选择题(每题3分，共45分）1．无论何种控件，共同具有的属性是（）。

A．Text 属性B．Caption属性C．Name属性D．Autosize属性2．当需要上下文帮助时,选择要帮助的内容,希望出现MSDN窗口及显示所需的帮助信息，应按的键是( )。

A．Help B．F10 C．F1 D．Esc3．为了保存一个Visual Basic应用程序,下列说法正确的是（）。

A．只保存窗体文件（。

frm）B．只保存工程文件(.vbp）C．分别保存工程文件和标准模块文件(。

bas)D．分别保存工程文件、窗体文件和标准模块文件4．在Visual Basic中,变量的默认类型是（)。

A．Integer B．VariantC．Double D．Currency5．Timer控件可用于后台进程中，可在Timer事件内编程，要停止触发Timer事件,需要设置的属性是( ）。

A．Interval=0或Enabled=False B．Interval=0或Visible=False C．Enabled=False 或Enabled=0 D．Interval=0且Enabled=False6．要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮,只要对下列( ）属性设置就有效。

A．MaxButton B．BorderSyleC．Width D．MinButton7．有程序代码如下：Text1。

Text = "Visual Basic"，则Text1，Text ，和"Visual Basic"分别代表( ）。

A．对象，值，属性B．对象，方法，属性C．对象，属性，值D．属性，对象，值8．要设置命令按钮的背景图形，必须设置的两个属性是（）。

A．Value和Icon B．Style和IconC．Caption和Picture D．Style和Picture9．在VB中，下列合法的变量名是（）。

"VB程序设计"综合复习资料第一章 Visual Basic程序设计概述一、填空题1、VisualBasic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。

2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。

3、执行“工程〞菜单下的__________命令，可选择并添加Active*控件。

4、Visual Basic 6.0用于开发__________环境下的应用程序。

二、选择题1、下面不是VB工作模式的是〔〕A．设计模式B．运行模式C．汇编模式D．中断模式2、可视化编程的最大优点是〔〕A．具有标准工具箱B．一个工程文件由假设干个窗体文件组成C．不需要编写大量代码来描述图形对象D．所见即所得3、以下不能翻开属性窗口的操作是〔〕A．执行“视图〞菜单中的“属性窗口〞命令B．按F4键C．按Ctrl+TD．单击工具栏上的“属性窗口〞按钮4、以下可以翻开立即窗口的操作是〔〕A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G5、Visual Basic的编程机制是〔〕A．可视化 B．面向对象 C．面向图形 D．事件驱动三、简答题1、代码窗口主要包括哪几局部？2、在工程资源管理器窗口中，主要列出了哪三类文件？3、窗体布局窗口的主要用途是什么？4、VB的根本特点是什么？5、怎样理解可视化设计？6、怎要理解事件驱动编程？第二章简单的VB程序设计一、填空题1、设置是否可以用Tab键来选取命令按钮，应该用______________属性。

2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。

3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能承受焦点。

一、填空题（每题1分，共10分）1.把数学式子：ο25sin 21π+写成VB 的数值表达式为（ Sqr(1+3.14159/2*Sin(25*3.14159/180)) ）。

2．设A=5，B=6，C=7，D=8，表达式3>2*B OR A=C AND B<>C OR C>D 的值是（ True ）。

3．若Case 子句中的表达式表列具有形式：<表达式1> To <表达式2>，则它的含义是：当测试表达式的值等于（ 指定范围内的值 ）时，执行该Case 子句相应的语句块。

4．执行下面的程序段后，x 的值为（ 12 ）。

x=0For i=1 To 8 Step 3x=x+iNext i5．在图片框上放置的控件称为图片框的（ 子 ）对象，而窗体是图片框的（ 父 ）对象。

6．将命令按钮Command1的Caption 属性值赋给文本框Text1的Text 属性使用的语句为( Text1.Text=Command1.Caption )7．复选框的Value 属性为（ 1 ）时，表示复选框被选中。

8. 使用滚动条可以获取某一范围内的数值输入。

为使垂直滚动条的Value 属性值从下往上递增变化，应设置滚动条Min 属性值大于( Max )属性值。

9．语句：Dim A(-3 to 4) as Integer 定义的一维数组A 的元素个数是（ 8 ）。

10．给定如下子过程：Function fun(ByVal num As Long) As LongDim k As Long,i As Integerk=1For i=1 To numk=k*iNext iEnd Function执行语句Print fun(5) 后在窗体上显示的结果为（0）。

二、单项选择题（每题1.5分，共30分）1.装载窗体是窗体的（ C ）。

A) 对象 B) 属性 C) 事件 D) 方法2.设a="Visual Basic"，下面使b的值为"Basic"的赋值语句正确的是( B )。

《Visual Basic程序设计》考试试卷一适用班级：计算机系网络04401班答题时间：100分钟班级学号姓名一、选择题（1分/题，共6分）（1）以下不能在"工程资源管理器"窗口中列出的文件类型是A）.bas B）.res C）.frm D）.ocx（2）下列可作为Visual Basic变量名的是A）A#A B）4A C）?xy D）constA(3) 在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。

列表框中显示若干城市的名称。

当单击列表框中的某个城市名时，在标签中显示选中城市的名称。

下列能正确实现上述功能的程序是A）Private Sub List1_Click() B）Private Sub List1_Click()Label1.Caption = List1.ListIndex Label1. Name = List1. ListIndexEnd Sub End SubC）Private Sub List1_Click() D）Private Sub List1_Click() = List1.Text Label1.Caption = List1.TextEnd Sub End Sub(4) 在窗体上画三个单选按钮，组成一个名为chkOption的控件数组。

用于标识各个控件数组元素的参数是A）Tag B）Index C）ListIndex D）Name(5) 在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：Option Base 0Private Sub Command1_Click()Dim city As Variantcity = Array("北京", "上海", "天津", "重庆")Print city(1)End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是A）空白B）错误提示C）北京D）上海（6）设有语句Open "c:\Test.Dat" For Output As #1则以下错误的叙述是A）该语句打开C盘根目录下一个已存在的文件Test.DatB）该语句在C盘根目录下建立一个名为Test.Dat的文件C）该语句建立的文件的文件号为1D）执行该语句后，就可以通过Print #语句从文件Test.Dat中读出信息二、填空题（每空2分，共28分）请将每空的正确答案写在答题卡【1】～【14】序号的横线上，答在试卷上不得分。

vb程序设计编程考试题及答案一、单项选择题（每题2分，共20分）1. 在Visual Basic中，下列哪个选项是正确的数据类型？A. IntegerB. RealC. StringD. All of the above答案：D2. 以下哪个函数用于将字符串转换为数值？A. ValB. StrC. ChrD. Asc答案：A3. 在Visual Basic中，下列哪个关键字用于定义一个过程？A. FunctionB. SubC. ClassD. Property答案：B4. 如果变量x的值是5，那么表达式"x > 3 And x < 7"的值是什么？A. TrueB. FalseC. NullD. Empty答案：A5. 在Visual Basic中，下列哪个控件用于显示文本，但不允许用户编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B6. Visual Basic中的哪个事件会在窗体加载时触发？A. ClickB. LoadC. MouseDownD. KeyDown答案：B7. 在Visual Basic中，下列哪个选项是正确的数组声明方式？A. Dim arr(5)B. Dim arr As Integer(5)C. Dim arr(5) As IntegerD. Dim arr As Integer答案：C8. 下列哪个关键字用于在Visual Basic中创建一个类？A. FunctionB. SubC. ClassD. Module答案：C9. 在Visual Basic中，下列哪个控件允许用户从预定义的列表中选择一个项目？A. TextBoxB. ListBoxC. ComboBoxD. CheckBox答案：C10. 如果变量x的值是10，那么表达式"x Mod 3"的结果是什么？A. 1B. 2C. 3D. 0答案：B二、填空题（每题3分，共30分）1. 在Visual Basic中，使用________关键字可以声明一个变量。

《VB程序设计》计算机⽔平等级考试样题及参考答案全国⾼等学校计算机⽔平考试《Visual Basic程序设计》考试样题（⼀）、理论题（20分，每⼩题1分）1.在正常安装Visual Basic6.0后，可以通过多种⽅式启动Visual Basic。

以下⽅式中不能启动Visual Basic的是：____D____A)通过“开始”菜单中的“程序”命令B)通过“我的电脑”找到vb6.exe，双击该⽂件名C)通过“开始”菜单中的“运⾏”命令D)进⼊DOS⽅式，执⾏vb6.exe⽂件2.每当窗体失去焦点时会触发的事件是___C____A)ActiveB)DeactiveC)LostFocusD)Initialize3.为了同时改变⼀个活动控件的⾼度和宽度，正确的操作是：___B_____A) 拖拉控件4个⾓上的某个⼩⽅块B) 只能拖拉位于控件右下⾓的⼩⽅块C) 只能拖拉位于控件左下⾓的⼩⽅块D) 不能同时改变控件的⾼度和宽度4. 假定窗体的名称为Form1，对该窗体编写如下代码：Private Sub Form_Load()Form1.Caption=”AAAAA”Me.Caption=”BBBBB”Capt ion=”CCCCC”End Sub程序运⾏后，窗体的标题是__C___A）AAAAAB）BBBBBC）CCCCCD）显⽰出错信息5.__A___属性设置窗体中⽂本和图形的背景颜⾊A）BackColorB）ColorC）TextD）ForeColor6.为了防⽌⽤户随意将光标置于控件上，应该__D__A) 将控件的TabIndex属性设置 0B) 将控件的TabStop属性设置为0C) 将控件的TabStop属性设置为FalseD) 将控件的Enabled属性设置为False7.语句Z=y+1代表___A______A）变量Z取得y+1的值B）变量Z取得变量y的值，然后再加上1的⼀个表达式C）将变量Z存⼊变量y中，再加上1的表达式D）将变量Z存⼊变量y+1中8.下列程序的运⾏结果是_____A____A=5B=-5C=NOT A=BPRINT CA）TrueB）-5C）0D）⽆法输出9.在窗体上画⼀个命令按钮（名称为Command1）编写如下事件过程：Private Sub Commmand1_Click()b=1c=3print a=b+cEnd Sub程序运⾏后，单击命令按钮，输出的结果是_D___A）a=3B）a=b+cC）3D）False10.设有如下的程序段：a$=”BeijingShanghai”b$=Mid(a$,instr(a$,”g”)+1)执⾏上⾯的程序段后，变量b$的值为__B____A）BeijingB）S hanghaiC）B eijingShanghaiD）显⽰出错信息11.下列语句的输出结果是_C___a=sqr(3.61)Print Format(a,”000.000”)A）1.900B）1.9C）001.900D）001.912.执⾏下⾯的代码，在图⽚框中显⽰的是___B___ Private Sub Command_Click()Picture1.print “Bbb”End SubA)名为”Bbb”的图形⽂件B)⽂本”Bbb”C)不显⽰任何信息D)出错13. 在VB中，下列_C__控件属于容器控件A）GridB）TextBoxC）FrameD）CheckBox14. 下列程序的输出结果是__C___Private Sub Command1_Click()For I=1 to 3Print chr(Asc(“a”)+I-1)NextEnd subA)ABCB)97 98 99C)abcD)bcd15. 设 a=10，则执⾏x=iif(a>7,-1,0)后，x的值是_D_A）7B）10C）0D）-116. 阅读程序：Function func(n As Integer) As IntegerSum=0For I=1 to nSum=Sum+(I+1)*INext IFunc=SumEnd FunctionPrivate Sub Command1_Click()Dim a As Integera=3s=func(a)print sEnd Sub程序运⾏后，单击命令按纽，输出结果为：_B___A）15B）20C）8D）3017.假设在窗体上已经添加了通⽤对话框CommonDialog控件并设置好属性，其名称是CommonDialog1，在程序中要显⽰“打开”对话框，使⽤语句是：_A___A）CommonDialog1.Action=1B）CommonDialog1.Action=2C）CommonDialog1.Action=3D）CommonDialog1.Action=418.在窗体上画两个标签和⼀个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序：Private Sub func(L as label,ByVal a As integer)L.Caption=”1234”a=a*aEnd SubPrivate Sub Form_Load()Label1.Caption=”ABCD”Label2.Caption=10End SubPrivate Sub Command1_Click()a=val(Label2.Caption)call func(label1,a)label2.caption=aEnd Sub程序运⾏后，单击命令按纽，在两个标签Label1和Label2中显⽰的内容分别是_D_A) ABCD和10B) 1234和100C) ABCD和100D） 1234和1019. 要判断在⽂本框内是否按下了回车键，可以在⽂本框的_C__事件过程中进⾏判断A) ChangeB) ClickC) KeyPressD) GotFocus20. 下列控件可以⽤来显⽰⽂件的是__B_A）DirListBoxB）F ileListBoxC）D riveListBoxD）ListBox（⼆）操作题1．简单操作（35分）（1）在Form1的窗体上画⼀个命令按钮，名称为Command1，标题为“未按下”。

《Visual_Basic程序设计》试题及其答案Visual_Basic程序设计试题及其答案Visual_Basic程序设计是一门与Windows操作系统密切相关的编程语言，广泛应用于图形用户界面(GUI)的开发。

下面是一套Visual_Basic程序设计的试题，以及详细的答案解析。

一、概念题（共10题，每题2分，共20分）1. 什么是Visual_Basic程序设计？答案：Visual_Basic程序设计是一种基于BASIC语言的集成开发环境(IDE)，用于Windows平台的程序开发和编程。

2. Visual_Basic程序设计的特点是什么？答案：Visual_Basic具有简单易学、图形化编程界面、可视化设计、事件驱动等特点。

3. 什么是控件？答案：控件是Visual_Basic程序设计中用于构建用户界面的基本元素，如按钮、文本框、标签等。

4. Visual_Basic程序中的数据类型有哪些？答案：Visual_Basic支持多种数据类型，包括整数、浮点数、字符串、布尔值等。

5. 什么是条件结构？答案：条件结构是一种根据不同条件执行不同操作的程序结构，如If语句和Select Case语句。

6. 什么是循环结构？答案：循环结构是一种重复执行特定操作的程序结构，如For循环和While循环。

7. 什么是函数？答案：函数是一段可重复调用的代码，通常用于实现特定功能，并可以返回结果。

8. 如何定义和调用函数？答案：在Visual_Basic中，可以使用Function关键字定义函数，并使用函数名调用函数。

9. 什么是异常处理？答案：异常处理是一种处理程序运行过程中可能出现的错误或异常情况的机制，以保证程序的稳定性。

10. Visual_Basic程序如何进行调试？答案：Visual_Basic提供了丰富的调试工具，包括断点调试、单步调试等，以帮助程序员发现和解决问题。

二、编程题（共2题，每题40分，共80分）题目一：设计一个Visual_Basic程序，实现计算器的基本功能。

单选题在数组的声明格式中，数组名后可以是( )。

收藏A.小括号()B.方括号[]C.尖括号<>D.花括号{}回答错误!正确答案： A下列语句中，必须使用字符串变量的语句是( )。

收藏A.Print #B.Write #C.Line Input #D.Input #回答错误!正确答案： C启动Visual Basic后, VB为用户建立的第一个窗体是()。

收藏A.窗体B.FormC.Form1D.窗体1回答错误!正确答案： C在使用Open语句打开文件时，若省略“For方式”，则打开的文件存取方式为收藏A.随机存取方式B.二进制方式C.顺序输出D.顺序输入回答错误!正确答案： A设a = "MicrosoftVisualBasic" ，则以下使变量b的值为"VisualBasic"的语句是( )。

收藏A.b = Mid(a, 10)B.b = Right(a, 10)C.b = Left(a, 10)D.b = Mid(a, 11, 10)回答错误!正确答案： A用Open语句打开一个随机文件时，若省略“Len＝记录长度”，则记录的长度为收藏A.64B.128C.1024D.256回答错误!正确答案： B打开菜单编辑器的热键为收藏A.Ctrl+EB.Alt+MC.Alt+ED.Ctrl+M回答错误!正确答案： A对于如下结构的循环：Do 循环体Loop Until 条件则下列正确的叙述是：。

收藏A.如果“条件”为常数-1，则至少执行二次循环体；B.如果“条件”为常数-1，则只执行一次循环体；C.如果“条件”为常数0，则一次循环体也不执行。

D.如果“条件”为常数0，则只执行一次循环体；回答错误!正确答案： B如果在定义一个过程时，没有使用任何限制的关键字，则定义的过程属于收藏A.PrivateB.StaticC.随机的D.Public回答错误!正确答案： D在Visual Basi6.0中，合法的字符串常量是( )。

VisualBasic6.0程序设计试题一与答案一、判断题：1、移动框架时框架内控件也跟随移动，所以框架内各控件的Left、Top属性值也将随之改变。

（错）2、VB提供的几种标准坐标系的原点都是在绘图区域的左上角，如果要把坐标原点放在其它位置，则需要使用自定义坐标系统。

（对）3、若窗体的坐标刻度为“缇”、窗体上的图片框控件的坐标刻度为“磅”，则图片框的Left属性值的单位为“缇”。

（对）4、用Scale方法改变了窗体坐标系后，窗体的Left、Top属性值不变。

（对）5、将容器的FillStyle属性设置为0后，容器中已绘制的图形的填充样式都为实心。

（错）6、语句“Shape1.FillStyle = vbSolid”和“Shape1.FillStyle = 0”作用相同。

（对）7、用Cls方法能够清除窗体或图片框中用Picture属性设置的图形。

（错）8、用Cls方法可以清除组合框中的所有表项。

（错）9、Picture图片框既可用来显示图片和绘制图形，也可以用Print方法来显示文字。

（对）10、在图片框中放置的控件既可以在该图片框内移动，也可以移出该图片框外。

（错）11、框架控件和形状控件都不能响应用户的鼠标的单击事件。

（错）12、图片框的Move方法不仅可以移动图片框，而且还可以改变该图片框的大小，同时也会改变该图片框控件的有关属性值。

（错）13、执行语句Pic1.Picture = ”c:\temp\a.bmp”，可以为图片框控件Pic1加载文件名为c:\temp\a.bmp的图形文件。

（错）14、Picture对象的AutoSize属性值为True时，表示该对象不管原来图片的大小，一律都自动调整为控件的大小尺寸，以便能够完整地显示该图片。

（错）15、图片框控件与影像框控件加载图形文件的方法相同。

（对）二、选择题：1、改变控件在窗体中的左右位置应该修改控件的（）属性？（B）A. TopB. LeftC. WidthD. Right2、要改变控件的宽度，应该修改控件的（）属性？（C）A. TopB. LeftC. WidthD. Right3、重新定义图片框控件的坐标系统，可采用该图片框的（）方法？（A）A. ScaleB. ScaleXC. ScaleYD. SetFocus4、容器的ScaleMode属性值为（）时，容器坐标系的每一个单位为一磅？（A）A. 2B. 1C. 4D. 65、改变了容器的坐标系后，该容器的（）属性值不会改变？（A）A. LeftB. ScaleLeftC. ScaleTopD. ScaleWidth6、无论怎样改变图片框控件P1的坐标系，其中心点的x，y坐标分别为（）？（B）A.(P1.ScaleLeft+P1.ScaleWidth)/2、(P1.ScaleTop+P1.ScaleHeight)/2B.P1.ScaleLeft+P1.ScaleWidth/2、P1.ScaleTop+P1.ScaleHeight/2C.P1.Left+P1.Width/2、P1.Top+P1.Height/2D.P1.Width/2、P1.Height/27、设置图片框控件PIC1的背景色为红色，可以执行语句（）？（B）A.PIC1.BackColor = QBcolor(1)B.PIC1.BackColor = 255C.PIC1.BackColor = RGB(0,0,255)PIC1.BackColor = RGB(0,255,0)8、要使Shape控件以实心方式填充，应该设置其（）属性？（B）A. FillColorB. FillStyleC. BackStyleD. Shape9、下列表达式中，（）不是蓝颜色的值？（C）A.vbBlueB. Rgb(0,0,255)C. QBColor(12)D. &HFF000010、下列表达式中，（）不是红颜色的值？（C）A.vbRedB. Rgb(255,0,0)C. QBColor(1)D. &HFF11、（）对象不能作为控件的容器？（C）A. FormB. PictureBoxC. ShapeD. Frame12、若在图片框上用绘图方法绘制一个圆，则图片框的（）属性不会对该圆的外观产生影响。

2022年-2023年最新国家开放大学《VisualBasic程序设计》章节测试参考答案第1章VB程序设计概述一、边学边练1. (单选题) 与传统的程序设计语言相比， VisualBasic最突出的特点是()。

a.程序调试技术b.事件驱动编程机制c.程序开发环境d.结构化程序设计2. (单选题)以下有关Visual Basic程序设计的叙述中，错误的是()。

a.是可视化的程序设计语言b.是面向过程的程序设计语言c.是面向对象的编程语言d.采用了事件驱动的编程机制3. (单选题)不能打开代码窗口的操作是()。

a.单击工程窗口中的“查看代码”按钮b. 单击工程窗口中的“查看代码”按钮c.双击窗体设计器的任何地方d.按下F4键1. (单选题) 保存一个工程文件至少应该保存两个文件，这两个文件分别是()。

a.窗体文件和标准模块文件b.文本文件和工程文件c.类模块文件和工程文件d.窗体文件和工程文件2. (单选题)Visual Basic6.0集成开发环境有三种工作模式，下列不属于三种工作模式之一的是()。

a.执行模式b. 设计模式c. 中断模式d.编写代码模式3.在VB 集成环境创建VB 应用程序时，除了工具箱窗口、窗体中的窗口、属性窗口外，必不可少的窗口是()。

a.监视窗口b.窗体布局窗口c.代码编辑窗口d. 立即窗口4. (单选题)工程文件的扩展名是()。

a..frmb..vbpC..frxd..bas1. (单选题) 事件的名称()。

a. 都是由系统预先定义的b. 都是由用户来定义的c.是不固定的d. 由用户或系统定义2. (单选题)下列不属于对象的基本特征的是()。

a.属性b. 事件c.函数d. 方法3.对象的性质和状态特征称为()。

a.事件b. 方法c.属性d. 类1. (单选题) 事件的名称()。

a. 是不固定的b. 由用户或系统定义c. 都是由用户来定义的d.都是由系统预先定义的2. (单选题)下列不属于对象的基本特征的是()。

中南大学网络教育课程（专科）考试复习题及答案《Visual Basic程序设计与应用》一、选择题：在每小题给出的四个选项中，只有一项是符合题目要求的，请把所选项前的字母填在题后的括号内。

1. Visual Basic程序中分隔一行中各语句的字符是（）。

[ ]A)‘B):C)\D)_2. 下列可作为Visual Basic的变量名的是（）。

[ ]A: Filename B: A（A＋B）C: A%D D : Print3. 要让菜单项无效，应将（）属性值设置为False。

[ ]A. VisibleB. EnabledC. MoveableD. Checked4. 以下过程是（）事件。

Prviate Sub Form_Load( )……End Sub [ ]A: 命令按钮的单击B: 命令按钮的装载C; 窗体的装载D: 窗体的单击5. Vb中描述文件扩展名的是（）属性。

[ ]A: Drive B: PatternC: FileName D: Path6. 关于Visual Basic中事件的说法中，不正确的为（）。

[ ]A)事件是由Visual Basic预先定义好的，能够被对象识别的动作B)DblClick（双击）是Visual Basic中的一种事件C)一个对象可以识别一个或多个事件D)对于一个系统提供的对象可以识别哪些事件，需要程序员自己定义7. 下列控件中可设置滚动条是（）。

[ ]A. 检查框（复选框）B. 框架C. 文本框D. 标签框8. 在Visual Basic中建立一个空窗体，( )不会是其默认名。

[ ]A. Form1B. Form2C. FormxD. Form109. Const One&=1，则One为（）类型的常数。

[ ]A)整型B)字节型C)长整型D)单精度型10. 关于逻辑型数据，下列说法错误的是（）。

[ ]A. 逻辑型数据只有两种可能值：True或者FalseB. 当把逻辑值转换为数值时False转为0，True转为1C. 当把其他类型数据转换为逻辑数据时，非0数转换为True，0转换为FalseD. 逻辑型数据以2个字节存储11. 以下（）不是Visual Basic的特点。