大学vb考试试题

装 订 线 - 1 - 《Visual Basic语言程序设计》A 姓 名： 学 号： 班 级: 考试时间： 补（重）考：（是、否） 题号 一 二 三 四 五 总分 核分人 得分

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ 说明：本试卷总计100分，全试卷共 7 页，完成答卷时间2小时，答案一律写到答题纸上。 －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

一、单项选择题（本大题共15题，每题2分，共30分） 1、在面向对象程序设计语言中，对象的内部状态称为 ( ) A、 属性 B、 方法 C、 事件 D、 类

2、工程文件的扩展名是 ( ) A、.frm B、.vbp C、.bas D、.frx

3、以下类型符，表示字符型数据的是 ( ) A、 % B、 ! C、 $ D、 &

4、以下声明语句中错误的是 ( ) A、Const var1=123 B、Dim var2 =”ABC” C、Dim var3% D、Static var4 As Integer

5、表达式4 + 5 \ 6 * 7 / 8 Mod 9的值是 ( ) A、 4 B、 5 C、 6 D、 7

6、InputBox函数返回值的类型为 ( ) A、数值 B、字符串 C、变体 D、数值或字符串（视输入的数据而定）

得分 阅卷人 （签全名） 装 订 线

- 2 - 7、以下语句的输出结果是 ( ) Print Format (32548.5, "000,000.00") A、32548.5 B、32,548.5 C、032,548.50 D、32,548.50

8、执行以下程序段后，变量c$ 的值为 ( ) a$ = "Visual Basic Programing" b$ = "Quick" c$ = b$ & Mid$(a$, 7, 6) & Right$(a$, 11) A、 Visual BASIC Programing B、 Quick Basic Programing C、 QUICK Basic Programing D、 Quick BASIC Programing

9、设分段函数y(x)的表达式为： y=x+1 (x>0) y=x-1 (x<=0) 则能正确实现该分段函数计算的语句为 ( ) A、 If x>0 Then y=x+1 y=x-1 B、 If x>0 y=x+1 Else y=x-1 End If C、 y=x+1 If x<=0 Then y=x-1 End If D、 If x>0 Then y =x+1 Else y=x-1 End If

10、阅读下面的程序段： For I = 1 To 3 For j = 1 To I a=a+1 Next j Next I 执行上面的二重循环后，a的值为 ( ) A、3 B、9 C、14 D、6

11、在窗体（Name属性为Form1）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程： Private Sub Command1_Click() 装 订 线 - 3 - a = Text1.Text + Text2.Text Print a End Sub

Private Sub Formm_Load() Text1.Text ="" Text2.Text ="" End Sub

程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为 ( ) A、444 B、321123 C、123321 D、132231

12、在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下的事件过程： Private Sub Command1_Click() x = 0 Do While x<50 x = ( x + 2 ) * ( x + 3 ) n = n+1 Loop Text1.Text = Str(n) Text2.Text = Str(x) End Sub 程序执行后，单击命令按钮，在两个文本框中显示的值分别为 ( ) A、1和0 B、2和72 C、3和50 D、4和168

13、 执行语句 ( ) 和“Text1.SelStart=0：Text1.SelLength=Len(Textl.Text)” 后,可以使文本框控件Text1 中的全部文本突出显示。 A、 Text1.enabled=True B、 Text1.SetFocus C、 Text1.Locked =False D、 Text1.Move

14、当一个复选框被选中时，它的Value属性的值是 ( ) A、 3 B、 2 C、 1 D、 0

15、用来设置斜体字的属性是 ( ) A）FontItalic B）FontBold C）FontName D）FontSize

得分 阅卷人 （签全名） 装 订 线 - 4 - 二、填空题（本大题共4题，每空2分，共20分） 1、结构化程序设计的三种基本结构是 、 和 。 2、对于百分制成绩，通常进行如下的等级划分： 85分～100分：优秀 75分～84分： 良好 60分～74分： 合格 60分以下： 不合格

以下代码是为解决该问题所写的一段代码，请补充完整。 Private Sub Form_Click()

Dim score As Single score = Val(InputBox("请输入成绩：")) Select Case Case Is >= 85 Print "优秀" Case Print "良好" Case Is >= 60 Print "合格" Case Print "不合格" End Select

End Sub 3、假定建立一个工程，该工程包括两个窗体，其名称（Name属性）分别为Form1和Form2，启动窗体为Form1。在Form1上画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请在 处将程序补充完整。 Private Sub Command1_Click() .hide Form2. End Sub

4、 建立窗体form1，然后编写如下代码： Private Sub Form_Click() Dim a1 As Integer Static a2 As Integer a1 = a1 + 1 装 订 线 - 5 - a2 = a2 + 1 End Sub

运行程序，连续三次单击窗体后，则a1、a2的值分别是 、 。

三、判断题（本大题共5题，每题2分，共10分） 1、 标签控件可以响应 Click 事件。( ) 2、 文本框控件的MaxLength属性值为0时,在文本框内不可以输入任何字符。( ) 3、 单击组合框中的任一表项,该表项的文本就会替换这一组合框控件的Text 属性值。( ) 4、 定时器控件只能响应Timer 事件。( ) 5、 若在窗体的 Form_load 事件中写入语句“Print "欢迎使用本系统 !"”, 则装入该窗体后 ,窗体上会显示“欢迎使用本系统 !”。 ( )

四、程序阅读题（本大题共3题，每题5分，共15分） 1、在窗体上画一个列表框list1和一个文本框text1，然后编写如下两个事件过程： Private Sub Form_Load() List1.AddItem "趵突泉" List1.AddItem "大明湖" List1.AddItem "千佛山" Text1 = "" End Sub

Private Sub List1_ DblClick() a = List1.Text Print Text1 + a End Sub

程序运行后，在文本框中输入“济南”，然后双击列表框中的“趵突泉”，请写出输出结果。 ( ) 2、程序运行时单击 Command1 后 ,写出窗体上的输出结果。 ( ) Option Base 1

Private Sub Command1_Click() Dim a(10), p(3) As Integer k = 1 For i = 1 To 10

得分 阅卷人 （签全名）

得分 阅卷人 （签全名） 装 订 线

- 6 - a(i) = i Next i For i = 1 To 3 p(i) = a(i * i) Next i For i = 1 To 3 k = k + p(i) * 2 Next i Print k End Sub

3、假定有以下函数过程： Function Fun(S As String) As String Dim s1 As String For i = 1 To Len(S) s1 = s1 + UCase(Mid(S, i, 1)) ‘函数UCase()的功能是将小写字符转换为大写字符

Next i Fun = s1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim Str1 As String, Str2 As String Str1 = InputBox("请输入一个字符串") Str2 = Fun(Str1) Print Str2 End Sub 程序运行后，单击命令按钮，在输入对话框中输入字符串“abcdefg”，请写出单击“确定”按钮后窗体上的输出结果。 ( )

五、程序设计题（本大题共3题，共25分） 1、用InputBox函数输入3个任意整数，按从小到大的顺序输出。(7分) 2、用近似公式求自然对数的底数e的值，直到最后一项小于10-4为止。要求输出结果保留小数点后两位数字。(9分)

3、 在窗体有三个复选框，名称分别为Ch1、Ch2和Ch3，标题依次为"体育"、"音乐"、"美术"，还有一个命令按钮，名称为C1，标题为"显示"。要求程序运行后，如果选中某个复选框，则当单击"显示"命令按钮时，则显示相应的信息。例如，如果选取中"体育"和"音乐"复选框，则单击"显示"命令按钮后，在窗体上显示"我的爱好是体育音乐"（如图所示）；而如果选中"

得分 阅卷人 （签全名）