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