VisualBasic程序设计》试题及其答案
- 格式:docx
- 大小:38.01 KB
- 文档页数:15
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 )。
A) b=Left(a,8,12) B) b=Mid(a,8,5)C) b=Right(a,5,5) D) b=Left(a,8,5)3.设X为整型变量,不能正确表达1< X < 5的逻辑表达式是( A )。
A) 1< X <5 B) X=2 or X=3 or X=4C) 1<X And X <5 D) Not (X<=1) And Not (X>=5)4.InputBox函数返回值的类型为( B )。
A) 数值型 B) 字符串型 C) 逻辑型 D) 货币型5.执行语句:Print 4+5\6*8/8 Mod 9 输出的值是( A )。
A) 4 B) 5 C) 6 D) 76.下列循环语句能正常结束循环的是( C)。
A)i=5 B) i=1Do Doi=i+1 i=i+2Loop Until i< 0 Loop Until i=10C)i=10 D) i=6Do Doi=i+1 i=i-2Loop Until i> 0 Loop Until i=17.以下叙述中正确的是( A )。
A) 窗体的Name属性指定窗体的名称,用来标识一个窗体B) 窗体的Name属性的值是显示在窗体标题栏中的文本C) 可以在运行期间改变窗体的Name属性的值D) 窗体的Name属性值可以为空8.VB为命令按钮提供的Cancel属性( A )。
A) 用来指定命令按钮是否为窗体的“取消”按钮B) 用来指定命令按钮的功能是停止一个程序的运行C) 用来指定命令按钮的功能是关闭一个运行程序D) 用来指定命令按钮的功能是中断一个程序的运行9.若使命令按钮失效,要对( A )属性设置为False。
A) Enabled B) Visible C) BackColor D)Caption10.在窗体中添加两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1),然后编写如下两个事件过程:Private Sub Command1_Click()a = UCase(Text1.Text) + Left(Text2.Text, 3)Print aEnd SubPrivate Sub Form_Load()Text1.Text = "abcDEF"Text2.Text = "123456"End Sub程序启动后,单击命令按钮,输出结果为(C)A)abcDEF123456 B)abcDEF123C)ABCDEF123 D)ab12345611.在运行程序时,要使文本框获得焦点,则需使用(B)方法。
A) Change B) SetFocus C) GotFocus D) Move12.下列语句中不能把图片框Picture1中的图形清除的是( A )。
A) Picture1.Del B) Picture1.Picture=LoadPicture("")C) Picture1. Picture= LoadPicture( ) D) Picture1. Picture=Nothing13.要删除列表框中的某一个项目,需要使用( D )方法。
A) Clear B) ReMove C) Move D) ReMoveItem14.在组合框中选择某一项目内容,在程序中可以通过(D)属性获得。
A) List B) ListIndex C) ListCount D) Text15.若有数组说明语句:Dim a()AS Integer,则a被定义为(B)。
A) 定长数组 B) 可调数组 C) 静态数组 D) 可变类型数组16.有如下语句:Type StudentName As StringAge As IntegerSex As StringEnd TypeDim Stu As StudentWith Stu.Name = "李强".Age = 21.Sex = "男"End With执行语句Print Stu.Age后在窗体上显示的结果是( B )。
A)李强 B)21 C)“男” D)Age17.要使子过程f1调用后能用形式参数返回两个结果,下面子过程定义正确的是( C )。
A)Sub f1(ByVal n%,ByVal m%) B)Sub f1(n%,ByVal m%)<子过程体> <子过程体>End Sub End SubC)Sub f1(n%,m%) D)Sub f1(ByVal n%,m%)<子过程体> <子过程体>End Sub End Sub18.以下叙述中错误的是( D )。
A) 一个工程中可以包含多个窗体文件B) 在一个窗体文件中用Private定义的子过程或函数过程不能被其他窗体文件调用C) 在设计VB程序时,窗体模块和标准模块需要分别保存为不同类型的文件D) 全局变量必须在标准模块中定义19.从磁盘上打开顺序文件"c:\t1.txt"为读入数据做好准备,如下语句(A)是正确的。
A) F="c:\t1.txt" B)F="c:\t1.txt"Open F For Input As #1 Open "F" For Input As #2 C)Open "c:\t1.txt" For Output As #1 D)Open c:\t1.txt For Input As #220.以下叙述中正确的是( B )。
A) 一个记录中所包含的各个元素的数据类型必须相同B) 随机文件中每个记录的长度是固定的C) Open命令的作用是打开一个已经存在的文件D) 使用Input#语句可以从随机文件中读取数据三、程序阅读题(第1题3分,第2题5分,其余题各4分,共24分)1.当x的输入值分别为4、8和12时,写出执行下列事件过程的输出结果。
Private Sub Command1_Click()Dim x%, y%x = InputBox("请输入x的值:")Select Case xCase 1, 3, 5 ,7y = x + 10Case 8 To 10y = x + 2Case 2, 4, 6y = 5 * xCase Is > 10y = x * x + 1End SelectPrint "x="; x, "y="; yEnd Subx=4 y=20x=8 y=10x=12 y=1452. 写出执行下列事件过程的输出结果。
Private Sub Command1_Click()Const n = 3Dim i As Integer, k As IntegerFor i = 1 To nPrint Tab((n - i) * 2 + 1);For k = 1 To iPrint Str(k);Next kFor k = i - 1 To 1 Step -1Print Str(k);Next kPrintNext iEnd Sub11 2 11 2 3 2 13.设在一个窗体(如图所示)中已设置了一个组合框Combo1和文本框Text 1,且有下列程序,试写出事件过程Combo1_Click的功能。
Dim str As StringPrivate Sub Form_Load()str = " "Combo1.AddItem "北京"Combo1.AddItem "天津"Combo1.AddItem "西安"Combo1.AddItem "上海"Combo1.AddItem "武汉"Combo1.AddItem "广州"Combo1.AddItem "海口"Combo1.Text = "北京"End SubPrivate Sub Combo1_Click()str = str & Combo1.Text & ","Text1.Text = strEnd Sub在文本框中显示单击组合框列表项目时该项目的内容,而且以后来添加的方式在文本框中显示所有选择项目的内容。