VISUAL BASIC期末试题

3．解答：程序代码如下：
6
Private Sub cmdExit_Click ( ) End End Sub Private Sub cmdOK_Click ( ) If txtName = "Guest" And TxtPassword = "12345" Then MsgBox "欢迎使用本系统！", vbOKOnly, "输入" Else MsgBox "对不起，你不是本系统用户！", vbOKOnly, "输入" End If End Sub 4．解答：程序如下： Private Sub Command1_Click() Dim n As Integer, m As String n = (Text1.Text) Select Case n Case 1 m = "星期一(Monday)" Case 2 m = "星期二(Tuesday)" Case 3 m = "星期三(Wednesday)" Case 4 m = "星期四(Thursday)" Case 5 m = "星期五(Friday)" Case 6 m = "星期六(Saturday)" Case 0 m = "星期日(Sunday)" Case Else m = "重新输入" End Select Label2.Caption = m End Sub
8．表达式 Int(-17.8)+Abs(17.8)的值为（ 9．表达式 Abs(-5)+Len("ABCDE")的值为（ a
b
c B、-5ABBiblioteka DE C、10 d 对应的 Visual Basic 表达式是（
B、a/(b+c)/d B、分号
A、a/b+c/d A、逗号
C、(a/b+c)/d C、顿号
18.下列程序段的执行结果为（ I = 0 For G = 10 To 19 Step 3 I = I + 1 Next G Print I A、4 B、5 C、3
D、6 ）
19．下列程序段的执行结果为（ N = 0 J = 1 Do Until N > 2 N = N + 1 J = J + N * (N + 1) Loop Print N; J A、0 1 B、3 7
Visual Basic 期末试题
一、填空题 1．Visual Basic 用于开发 件； 扩展名为.frm 的文件表示 包含 ActiveX 控件的文件扩展名为 等都是对象。 4． 对象的方法用于 并且也没有返回值时， 调用对象的方法的格式为 Show 方法，应写成 。其中， 是 。 7．关系式-5X5 所对应的布尔表达式是 8．X 是小于 100 的非负数，对应的布尔表达式是 除。表示该条件的布尔表达式是： 10．Timer 控件的 设置为 False 会关闭 Timer 控件，设置为 True 则打开它。 11．在 Visual Basic 的转换函数中将数值转换为字符串的函数是 字符串转换为数值的函数是
三、编程题 1．解答：使用 For 循环语句，程序如下： Private Sub Form_Click( ) Static Sum As Integer For I =1 To 100 Sum = Sum + I Next I Print Sum End Sub 程序运行后，单击窗体，输出结果为：5050。 如果使用当循环语句，则程序如下： Private Sub Form_Click( ) Static Sum As Integer I=1 While i<=100 Sum=Sum+I I=I+1 Wend Print Sum End Sub 2．解答： 10 10 20 + 15 15 25 = 20 20 45
3．创建一个登录界面，由两个标签（ Label1、Labe12 ）和两个文本框 （txtName 、 txt Password ）组成。其中，口令文本框 （txtPassword ）的 PasswordChar 属性设置为 “*” ，运行时要求输入姓名和密码，如果在两个文本框中分别输入“Guest： ”和“12345” ， 则界面显示“欢迎使用本系统！ ” ，否则显示“对不起，你不是本系统用户！ ” 。 4．输入一个数字（0~6） ，用中英文显示星期几。应用程序用户界面如下：
；将字符转换为相应的 ASCII 码的函数是
12．数学式子 Sin30 写成 Visual Basic 表达式是 13．Visual Basic 程序开发的三种模式是 。 14．要清除组合框 Combo1 中的所有内容，可以使用的语句是 15．使控件获得焦点的方法是 二、选择题 1．保存新建的工程时，默认的文件夹是（ A、My Document A、"你好" 3．下列叙述中不正确的是（ A、"你好" 4．下列叙中不正确的是（ ） B、VB98 ） C、" True" C、" True" D 、#False# D、#False# ） B、"" B、"" C、\ 2．下列不是字符串常量的是（ ） D、Windows 。
13．如果要在文本框中键入字符时，只显示某个字符，如星号（*）,应设置文本框的
）能够正确实现条件：X<Y,则 A=15，否则 A=-15。
A、If X<Y Then A=15
2
D、If X<Y Then A=15 Else: A=-15 Print A 17.下列程序段的执行结果为（ A = 75 If A > 60 Then I = 1 ElseIf A > 70 Then I = 2 ElseIf A > 80 Then I = 3 ElseIf A > 90 Then I = 4 End If Print "I="; I A、I=1 B、I=2 ） C、I=3 D、I=4 ）
7
4
参考答案 一、填空题 1．Windows 2．工程 3．窗体 窗体 控件 标准模块 菜单 对象名.方法名 Active 控件 Form1.Show 可插入对象 内部控件 .OCX
4．完成某种特定的功能 5．内部控件（标准控件） 6．True 7．X>=-5 And<=5 8．X<100 AndX>=0
A、变量名中的第一个字符必须是字母 B、变量名的长度不超过 255 个字符
1
C、变量年名可以包含小数点或者内嵌的类型声明字符 D、变量名不能使用关键字 5．以下可以作为 Visual Basic 变量名的是（ A、SIN A、1 A、1 A、18 A、5ABCDE 10．代数式 B、CO1 B、0 B、5 B、-17 6．表达式 5^2Mod25\2^2 的值是（ 7．表达式 25.28Mod6.99 的值是（ ） C、6 ） C、4 ） D、-16 D、0 ） D、a/(b+c/d) ）分隔。 D、冒号 ） C、-18 D、出错 D、4 ） D、X（-1） C、COS（X）
2．写出下列语句的输出结果： Sub Form_Click（） A = 10: b = 15: c = 20: d = 25 Print A; Spc(5); b; Spc(7); c Print A; Spc(8); b; Space$(5); c Print c; Spc(3); "+"; Spc(3); d; Print Spc(3); "="; Spc(3); c + d End Sub
11.在一个语句行内写多条语句时，语句之间应该用（
12．在代码编辑器中，如果一条语句太长，无法在一行内写下（不包括注释） ，要折行 书写，可以在行末使用续行字符（ C、直接回车 （ ）属性。 A、Caption 编辑。 A、Locked A、0 16．下列程序段（ A=-15 Print A B、If X<Y Then A=15: Print A A=-15: Print A C、If X<Y Then A=15: Print A Else A=-15: Print A B、MultiLine B、1 C、TabStop ）列。 D、3 C、2 D、Visible 15.如果 Tab 函数的参数小于 1，则打印位置在第（ B、PasswordChar C、Text D、Char 14．如果将文本框的（ ）属性设置为 True，则运行时不能对文本框中的内容进行 ） ，表示下一行是当前行的继续。 B、一个下划字符（_） D、一个空格加一个连字符(-) A、一个空格加一个下划字符（_）
5．Visual Basic 的控件通常分为三种类型，即
6．若 A=20，B=80，C=70，D=30，则表达式 A+B>160 Or (B*C>200And Not D>60)的值 。 。 。 属性决定该控件是否对时间的推移做响应。将该属性 ；将数字 。 。 、 和 。
9．闰年的条件是：年号（Y）能被 4 整除。但不能被 100 整除；或者年号能被 400 整
C、3 21 ）
D、3 13
20．下列程序段的执行结果为（
3
N = 0 For I = 1 To 3 For J = 5 To 1 Step -1 N = N + 1 Next J, I Print N; J; I A、12 三、编程题 1．编写程序，计算 1+2+3+4+…+100。 0 4 B、15 0 4 C、12 3 1 D、15 3 1
0
环境下的应用程序。 文 文件； 、 、 文件； 扩展名为.bas 的文件表示 。