VB模拟复习题.doc

一、单项选择题1下面说法不正确的是_B_。A、变量名的长度不能超过255个字符B、变量名可以包含小数点或者内嵌的类型声明字符C、变量名不能使用关键字D、变量名的第一个字符可以是字母或汉字2. 在一行内写多条语句时，每个语句之间用（B      ）符号分隔。A、 ,   B、 ：   C、 .   D、 ；3 下面（    B  ）是合法的字符常量。A、 ABC$   B、 “ABC”   C、 ABC   D、 ABC4利用VB设计程序的基本步骤可分四步：（1）设计用户界；（2）（A ）；（3）运行调试程序；（4）生成执行文件。A、编写代码 B、设计算法 C、信息反馈 D、系统集成 5. 语句Print 5/4*65 Mod 2的输出结果是B 解析：先计算5/4，得1.25；再计算1.25*6，得7.5；接着计算7.55，得 1；最后是1 Mod 2，结果得1。A) 0 B)1 C) 2 D) 36以下能在窗体Form1的标题栏中显示“VisualBasic窗体"的语句是：C 此题考察窗体的属性，Caption属性用来设置窗体标题栏中显示的文本内容，题目要求在窗体标题栏中显示“VisualBasic窗体”，只有选项C)为正确答案。A. Form1.Name="Visual Basic窗体"B. Form1.Caption="Visual Basic窗体" C. Form1.Text="Visual Basic窗体”D. Form1.Title="Visual Basic窗体7、在窗体（名称为Form1）上画一个名称为Text1 的文本框和一个名称为Command1的命令按钮,然后编写一个事件过程,程序运行后,如果在文本框中输入一个字符,则把命令按钮的标题设置为”计算机等级考试”.以下能实现上述操作的事件过程是( A ) 解析 当在文本框内输入了一个文字，触发了Text1_Change( )事件，改变按钮的标题用按钮的Caption属性，所以这里只需在Text1_Change( )事件里写上Command1。 Caption=“计算机等级考试”即可。选项B里的语句中的Caption后面用了两个等号，需改为一个。 A Private Sub Text1_Change()Command1.Caption= “计算机等级考试” End Sub B Private Sub Command1_Click() Caption=“计算机等级考试” End Sub C Private Sub Form1_ Click()Text1. Caption=“计算机等级考试” End Sub D Private Sub Command1_Click()Text1. Text1=“计算机等级考试”End Sub8设a="a"，b="b"，c="c"，d="d"，执行语句x = IIf(a < b) Or (c > d), "A", "B")后，x的值为 D x=IIf(a<b)Or(c>d),"A",”B") 就是a<b 或者c>d 就把A赋给X 否则把B赋给X答案是D 比较的时候是以ASCII码值比较的 a=97 b=98 .A、"a" B、"b" C、"B" D、"A"9在VB中，三个逻辑运算符NOT，AND，OR在运算过程中，优先级从高到低的顺序是（  B    ）。A、 AND->NOT->OR   B、 NOT->AND->ORC、 OR->NOT->AND   D、 NOT->OR->AND10在VB中，复写框（Check）的Value值有三种，分别是（B ）。 A、-1，0，1 B、0，1，2 C、1，2，3 D、True，False，011保存文件时，窗体的所有数据存储格式为( B) A、 *PRG B、 *FRM C、*VBP D、 *EXE12定时器控件的Interval属性值是指时间间隔，单位为 _A_   ；当每隔此间隔的时间，定时器会触发一次_  事件。(A)毫秒，Timer ( B)秒，Timer (C)毫秒，Scroll Bar (D)秒，Scroll Bar13下列关于控件数组的说法错误的是 CA) 定义控件数组的方法与定义一般数组的方法是相同的B) 使用Load语句载入的控件数组元素在默认的情况下是不可见的C) 对于不再使用的控件可以使用unload语句将其卸载D）控件数组中的控件事件过程与其他控件事件过程的结构类似14Function fun(m As Integer) As Integer Dim k As Integer, sum As Integer sum=o For k =m To 1 step -2 sum=sum + k Next k fun=sumEnd Function若在程序中用语句是s=fun(10)调用此函数，则s的值为（B ）A.20 B.30 C.40 D.1015. VB中的变量如果没有显示声明其数据类型，则默认为（D ） A、日期型 B、数据型 C、字符型 D、变体型16. 以下叙述中正确的是（ D ）A一个记录中所包含的各个元素的数据类型必须相同B随机文件中每个记录的长度是固定的COpen 命令的作用是打开一个已经存在的文件D使用Input #语句可以从随机文件中读取数据17. 定时器控件的Interval属性值是指时间间隔，单位为 _   ；当每隔此间隔的时间，定时器会触发一次_  事件。A(A)毫秒，Timer ( B)秒，Timer (C)毫秒，Scroll Bar (D)秒，Scroll Bar18. 以下程序运行后，窗体上显示x,y的内容是( D ). Dim x As IntegerStatic y As Integer x=10 y=5 call f1(x, y) Print x,y Private Sub f1(ByRef x1 As Integer, y1 As Integer) x1=x1+2 y1=y1+2 A) 10 5 B) 12 5 C) 10 7 D) 12 719. 下列对顺序文件描述正确的是:_C_A.记录之间有明确的分隔符 B.可通过记录号读出C.每条记录的长度必须相等 D.可编程对某条记录方便的修改20. 下列程序输出的结果为B_。For i = 1 To 4 x = 5 For j = 1 To 2 x = x + 10 Next Next Print xA、12 B、25 C、16 D、1721. 框架是一个容器控件，其用于设置框架控件是否能够响应用户事件的是下列哪个属性：CA Name属性 B Caption属性 C Enable属性 D left属性22. 下列程序段运行后，单击窗体，输出的结果为_。Private Sub Form_Click()Dim i As Integer, Sum As IntegerSum=0For i = 2 To 10If i Mod 2 = 0 And i Mod 3 <>0 ThenSum = Sum + iEnd IfNextPrint SumEnd SubA、24 B、30 C、12 D、1823. 以下Case语句中错误的是: _A) Case 0 To 10 B) Case Is>10C) Case Is>10 And Is<50 D) Case 3 ,5, Is>1024. 文本框的ScrollBars属性只有在_属性为Ture时才有效。 A、MultiLine B、Text C、Font D、PasswordChar25. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() x=InputBox("Input:") Select Case x Case 1,3 Print "分支 1" Case Is >4 Print "分支 2" Case Else Print "Else 分支 " End SelectEnd Sub程序运行后，如果在输入对话框中输入2，则窗体上显示的是A. 分支1 B. 分支2 C. Else分支 D. 程序出错26. 阅读程序:： Option Base 1Private Sub Form1_Click()Dim arr Dim Sum As IntegerSum = 0arr = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19)For i = 1 To 10If arr(i) / 3 = _ ThenSum = Sum + arr(i)End IfNext iPrint SumEnd Sub 程序运行后，单击窗体，如果输出结果为27则在下划线处应该填入A）arr(i) B）arr(i) 2 C） arr(i) 3 D）arr(i) 527. 阅读程序:： x = 0 a = 0Do Until x = -1 x = InputBox("请输入x的值") x = Val(x) a = a + x Loop Print a程序运行后，依次在输入对话框中输入2、3、-1，则输出结果为_。A）2 B）3 C）1 D）4 28. 以下哪种不能使控件获得输入焦点：A）用鼠标单击指定的控件B）反复按Tab键直到指定控件获得输入焦点C）按Shift键使指定控件获得输入焦点D）调用控件的SetFocus方法29. 在标题的字符串中的某个字符前加上符号&便可以建立该命令按钮的_.A.默认值 B、快捷键 C、输入焦点 D、编辑器29. 阅读程序: function f(m As Integer) as Long If m Mod 2 = 0 Then f = m Else f = 1 End IfEnd Functionprivate Sub Command1_Click() Dim i As Integer s = 00 For i = 1 To 5 s = s + f (i) Next print s程序运行后，输出结果为:A) 11 B) 10 C) 9 D) 830. 有程序代码如下：Text1.Text=”Text1.Text”则Text1、Text、”Text1.Text”分别代表（C ）A、对象、值、属性B、对象、方法、属性C、对象、属性、值D、属性、对象、值31以下说法不正确的是_。A、使用ReDim语句可以改变数组的维数B、使用ReDim语句可以对数组的所有元素进行初始化C、使用ReDim语句可以改变数组每一维的大小D、使用ReDim语句可以改变数组的类型32. Sub过程与Function过程最根本的区别是_A、Sub过程可以用Call语句直接使用过程名调用，而Function过程不可以B、Function过程可以有形参，Sub过程不可以C、Sub过程不能返回值，而Function过程能返回值D、两种过程参数的传递方式不同33. 在窗体模块中用Public定义的变量的作用范围是_。A、整个程序的所有模块中B、该窗体模块中C、标准模块中D、其他窗体模块中34. 下列程序运行的输出结果是_。Private Sub From_Click()y = 9: x = 4y = calc( y, x)Print yEnd SubPublic Static Function calc( x, y)calc = (x 2 + Sqr ( y) + 1End FunctionA、84 B、20 C、98 D、835. 下列程序段的执行结果为_。n = 0For i = 1 To 3 For j = 5 To 1 Step -1 n = n + 1 Next j Next iPrint n; j; iA、12 0 4 B、15 0 4 C、12 3 1 D、15 3 二、填空题1. 在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：Private Sub Form_Click() 。 Text1.text="VB程序设计"End SubPrivate Sub Text1_Change()Picture1.Print"VB Programming"End Sub程序运行后，单击窗体，在文本框显示的内容是_ VB程序设计_，而在图片框显示的内容是 _ VB Programming _ 2. 阅读以下程序：Function fun(ByVal num As Long) As Long Dim k As Long k=1 num=Abs(num) Do While num k=k*(num Mod 10) num=num10 Loop fun=k End Function Private Sub Command1_Click() Dim n As Long Dim r As Long n=InputBox("请输入一个数") r=fun(n) Print r End Sub 程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为 _24_3阅读程序：Function Fac(a As Integer) b = 0 Static c b = b+1 c = c+1 F = a+b+c print FEnd Function Private Sub Command1_Click () Dim a As Integer a =2 For i =1 To 3 call Fac(a) Next i End Sub 运行上面的程序，单击命令按钮，输出结果为：4 5 64窗体文件的扩展名是_.frm_。5数学关系3<= x<10表示成正确的VB表达式为_。 A、3 <= x < 10 B、3<= x AND x<10 C、x >=3 OR x < 10 D、3 <= x AND <106. Print Format(123.5, "#.00")显示_123.50_。7. 在窗体上有一个名称为Label1的标签和一个名称为List1在列表框。程序运行后，在列表框中添加若干列表项。当单击列表框中的某个项目时，在标签Label1中显示所选中的项目，如图所示。请在_处填入适当的内容，将程序补充完整。(3分)Private Sub Form_Load()List1.AddItem “香蕉”List1.AddItem “苹果”List1.AddItem “西瓜”End Sub Private Sub List1_Click()Label1.Caption= _List1.Text_End Sub 8. 设有如下程序：用 Array 函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。Option Base 1Private Sub Command1_Click()Dim arr1Dim Min As Integer,i As Integerarr1=Array(12,435,76,-24,78,54,866,43)Min=_For i=2 To 8If arr1(i)<Min Then_Next iPrint "最小值是："_ arr1(1)_End Sub9. 菜单编辑器启动后的画面中。出现的项目有_数据区、编辑区和菜单项显示区_。三、编程题1新建一个窗体，程序运行时，当用鼠标单击窗体任一地方，程序弹出Inputbox()函数输入框。当输完15个整数后，程序把刚输入的15个整数分3行在窗体上显示，每行5个整数。提问：（1）、应该对窗体的什么事件进行编程？ （2）、编写程序代码，实现上述功能。Private Sub Form_Click()Dim i As IntegerDim x As IntegerDim a(1 To 15) As IntegerRandomize  For i = 1 To 15  x = Int(Rnd * 101)  a(i) = x  Next i  Print  For i = 1 To 15  If i Mod 5 = 0 Then    Print a(i)  Else  Print a(i);  End If  Next i  End Sub新建一个窗体，在窗体上添加一个名称为Text1的文本框和一个名称为Command1的按钮。编写程序，计算1至100范围内奇数的和，单击按钮Command1后，将结果显示在文本框Text1中。Private Sub Command1_Click()Dim i As IntegerDim sum As Integersum = 0For i = 1 To 100 Step 2sum = sum + iNextText1.Text = sumEnd Sub3.3、如下图，设计一个界面，给出3个可选答案，用于允许选择某人的兴趣，某人的兴趣是“音乐”，选择完毕后单击“完成”命令按钮可弹出一个消息框显示用户选择的内容。如果单击的是“音乐”，则显示“答对了”。否则，则显示“答错了”。1 要求填写程序设计对象属性表；2. 编写程序单选钮 1单选钮 2单选钮 3(1) 填写对象属性设置表：对象类型属性名属性值窗体NameForm1Caption兴趣爱好选择单选钮1NameOption1Caption音乐单选钮2NameOption2Caption阅读单选钮3NameOption3Caption运动框架NameFrame1Caption某人的兴趣爱好“确定”按钮NameCommand1Caption完成（2）在“确定”命令的单击事件过程中键入如下代码：Private Sub Command1_Click()If Option1 = True ThenMsgBox ("答对了")ElseMsgBox ("答错了")End IfEnd Sub