VisualBasic语言程序设计05试卷

1、v1.0可编辑可修改7C) cde D) cd)。A) Date( ) B) Time()8、标签框所显示的内容，由()A) Text B)( 名称)9、复选框对象是否被选中，是由其A) Checked B) ValueC) IsDate( ) D) Year() 属性值决定。C) Caption D) Alignment ()属性决定的。C) Enabled D) SelectedVB样题、单选题(本大题共25题，每题2分，共50分)1、下列符号中哪个是VB程序中合法的变量名()A) ab7B) 7abC) IfD) a*bc2、与传统的程序设计语言相比，Visual Basic 最突出的特

2、点是()A面向对象的程序设计B )集成化开发环境C)结构化程序设计D )事件驱动编程机制3、以下叙述中错误的是()。A Visual Basic是事件驱动型可视化编程工具B) Visual Basic 应用程序不具有明显的开始和结束语句C) Visual Basic 工具箱中的所有控件都具有宽度(Width)和高度(Height)属性D) Visual Basic 中控件的某些属性只能在运行时设置4、每个窗体对应一个窗体文件，窗体文件的扩展名是()。A) .basB) .clsC) .frm D) .vbp5、确定一个控件在窗体上的位置的属性是()。A Width 和 HeightB) Wid

3、th 或 HeightC) Top 和 LeftD) Top 或 Left6、设字符串str1="abcdefgh",则表达式 Mid(str1,3,2) 的结果是()。A) abc B) bc7、可获得当前系统日期的函数是(10、计时器控件的()属性用于设置Timer事件发生的时间问隔A) Stretch B) IntervalC) Value D) Length11、若要向列表框添加列表项，可使用的方法是()。A) Add B) RemoveC) Clear D) AddItem12、VB中可用()语句产生一消息框。A) InputBox B) ShiftC) Both

4、 D) MsgBox13、以下叙述中正确的是()。A) 窗体的Name1性指定窗体的名称，用来标识一个窗体B) 窗体的NameH性的值是显示在窗体标题栏中的文本C) 可以在运行期间改变对象的 NameH性的值D) 对象的NameH性值可以为空14、执行下面的语句后，所产生的信息框的标题是()。a = MsgBox("AAAA", "BBBB", "", 5)A) BBBB B) 空C) AAAA D)出错，不能产生信息框15、表达式 4+56*7/8 Mod 9 的值是()。A) 8B) 7C) 6 D) 516、下列关于 Do Wh

5、ile Loop和Do-Loop Until循环执行循环次数的描述正确的是()。A) Do While Loop循环和DoLoop Until循环至少都执行一次B) Do While Loop循环和DoLoop Until循环可能都不执行C) Do While Loop循环至少执行一次和 DoLoop Until循环可能不执行循环D) Do While Loop循环可能不执行和 DoLoop Until循环至少执行一次17、默认条件下，语句Dim a(3,4,5)定义的数组中所包含的数组元素的个数是()。A) 12B) 60 C) 120D) 34518、数学关系3&x<10对应

6、的Visual Basic 表达式是()。A) 3<=x<10 B) 3<=x AND x<10 C) x>=3 OR x<10 D) 3<=x AND <1019、下面程序段的执行结果是()。Private Sub Command1_Click()Forj = 1 To 4k = 0For i = 1 To 4k = i + 1Next iNext jPrint kEnd SubA) 16 B) 4 C) 5D) 620、语句Dim arr(3 To 5, -2 To 2)所定义的数组的元素个数是()。A) 20 B) 12 C) 15 D)

7、2421、以下关于数组的说法，不正确的是()。A)数组是一种特殊的数据类型B) 一个数组中可存放多种类型的数组C)数组是一组相同类型的变量的集合D)运行时可改变动态数组或静态数组的大小22、假定有下面的程序段:Fori = 1 To 3Forj = 1 To iFor k = j To 3Print "i = " i, "j = " j, "k = " kNext kNext jNext i这是一个三重循环程序，在这个程序中，外层、中层和内层循环的循环次数是（）。A） 3 、 6 和 14B） 3、 8 和 16C） 3 、 4 和

8、12D） 3、 9 和 1823、执行下面的程序段后，x的值为（）。x = 5For i=1 to 20 Step 2x = x + i 5Next iA） 10B） 15C） 20D） 2124、若要将多条语句书写在同一行，语句间应该用（）间隔。A）逗号B）冒号C）分号D）句号25、要求从文本框中输入密码时在文本框中只显示 #号，则应用在此文本框的属性窗口中设置A) Text属性值为#C) Passwordchar 属性值为 #B) Caption属性值为#D) Passwordchar 属性值为真二、填空题（本大题共5题，每题2分，共10分）1、若要将窗体Form2显示出来，可使用方法 来

9、实现。2、VB提供的enabled属性，用来控制对象是否可用； 属性，用来控制对象是否可见。3、在窗体上画一个命令按钮，然后编写如下事件过程：4、 Private Sub Command1_Click（）5、 a = InputBox（" 请输入一个整数"）6、 b = InputBox（" 请输入一个整数"）7、 Print a + b8、 End Sub9、程序运行后，单击命令按钮，在输入对话框中分别输入326和536,输出结果为10、 数学表达式2（3a 2b） j3sinx , 在 VB中对应的表达式为011、 控件数组具有相同的控件名称（即Na

10、me属性），通过不同的 属性来标识各个控件。三、程序填空题（本大题共6空，每空2分，共12分）1、窗体上有一个标签和一个计时器，以下程序的作用是，程序运行后，单击窗体，在标签中显 示当前的系统时间，每隔1秒变换一次，请填空。Private Sub Form_Click（）End SubPrivate Sub Timer1_Timer()End Sub2、阅读以下在VB开发过程中的应用说明，对属性设置和程序代码填空。本应用程序的运行窗口及其功能说明如下：程序事先设定密码为“abc”，要求用户在文本框中输入密码，然后单击“校验密码”命令按钮，程序将核对用户输入的密码与事先设定的密码是否 一致。如果

11、一致，则通过 MsgBox®句弹出消息框提示“密码正确，欢迎进入！” ；否则弹出消 息框提示“密码不正确，谢绝进入！ ”。当用户单击“重新输入”命令按钮，则清空文本框中内 容，且将光标定位到文本框中。当单击“退出”命令按钮时，退出应用程序。属性设置对象对象名属性名属性值设置命令按钮CommandlCaption重新输入命令按钮Command2Caption核对密码命令按钮Command3Caption退出文本框Text1Text（置空）程序代码Private Sub Command1_Click()HI!End SubPrivate Sub Command2_Click() Dim

12、pw As String pw = "abc"If ThenMsgBox "密码正确，欢迎进入!ElseEnd IfEnd SubPrivate Sub Command3_Click()End Sub四、简答题(本大题共3题，每题4分，共12分)1、描述一下你对VB可视化编程中“属性”和“方法”概念的理解。2、VB可视化编程的一般步骤。3、写出生成一个1100间随机整数的VB语句，并给出简要说明。五、编程题(本大题共3题，12题每题5分，第3题6分，共16分)1、设计一个用FoNext语句，将100200之间所有能同时被3和5同时整除的数的和显示 在窗体上。要求：

13、程序头尾如下。Private Sub Command1_Click()End Sub2、编写程序将一年中的12个月份，转换成四个季度输出。对应关系如下：月份：1346791012季度：春季夏季秋季冬季要求：程序运行时，从键盘输入一个月份(使用输入对话框)，在窗体上输出对应的季度。使用select case 或者if then else 语句实现，程序头尾参照如下。Private Sub Form_Click()End Sub3、通过下面的Form_Load()事件将一组学生成绩，已经存储在二维数组a(5, 3)中，请编写一段程序找出最高和最低的成绩，并在窗体上显示出来。Option Base

14、1Private Sub Form_Load()Dim a(5, 3) As Integera(1, 1) = 69: a(1,2) = 89: a(1,3) = 74a(2, 1) =94:a(2, 2) =80: a(2, 3)= 90a(3, 1) =57:a(3, 2) =62: a(3, 3)= 73a(4, 1) =98:a(4, 2) =94: a(4, 3)= 90a(5, 1) =73:a(5, 2) =76: a(5, 3)= 63End Sub要求：程序头尾如下。Private Sub Form_Click()End Sub参考答案、15、ABCCC 610、DACBB

15、1115、DDADD1620、DCBCC 2125、DADBC3、 326536或 2*(3*a+2*b)-Sqr(3)*Sin(x)3、1、show 或 2、visible4、2*(3*a+2*b)-SqK3)*Sin(x/180)5、Index或索引二、1、10002、Time / Time$4、=PW 或="abc"v1.0可编辑可修改5、MsgBoX'密码不正确，谢绝进入“6、End 或 Exit四、1、属性是指对象的一组特征，方法是要执行的动作，完成某一特定功能2、设计界面；设置属性；编写代码；运行、调试和保存3、Int(Rnd*100) ;Rnd函数用来

16、产生01之间的随机数，乘以 100后，产生0100之间的数，Int函 数用来取整。五、1、Private Sub Command1_Click()For i = 100 To 200If i Mod 3 = 0 And i Mod 5 = 0 ThenSum = Sum + iEnd IfNext iPrint SumEnd Sub或者Private Sub Form_Click()2、Private Sub Form_Click()m = InputBox(" 请输入月份")Select Case mCase 1 To 37Print " 春季"Case 4 To 6m = InputBox(" 请输入月份")If m <= 3 ThenPrint "春季"ElseIf m <= 6 ThenPrint "夏季"v1.0可编辑可修改3、Private Sub Form_Click()Max = a(1, 1)Min = a(1, 1)For i = 1 To 5Forj =