模拟试题六 |
|
|
|
|
一、选择题 |
|
|
1. 组合框有三种风格,它们由Style属性所决定,其中为下拉列表框时,Style属性值应为 _______。 |
|
|
A. 0 |
|
|
B. 1 |
|
|
C. 2 |
|
|
D. 3 |
|
|
|
|
|
2. 下列可调整图片框的大小以适合图片的属性是_______。 |
|
|
A. stretch |
|
|
B. autosize |
|
|
C. picture |
|
|
D. oledropmode |
|
|
|
|
|
3. 要想清除文本框中的内容则可利用_______进行。
|
|
|
A. Caption |
|
|
B. Text |
|
|
C. Clear |
|
|
D. Cls |
|
|
|
|
|
4. 下列表达式中, 其值为0的是 _______。
|
|
|
A. 7/9 |
|
|
B. 7 mod 15 |
|
|
C.7\9 |
|
|
D.15 mod 9 |
|
|
|
|
|
5. 求以10 为底X 的常用对数的表达式为_______ 。
|
|
|
A. LOG(X)/LOG(10) |
|
|
B. LN(X) |
|
|
C. LOG(X)/LOG(E) |
|
|
D. LOG(X) |
|
|
|
|
|
6. 将CommonDialog通用对话框的类型设置为颜色对话框,可修改该控件的_______属性。
|
|
|
A. Color |
|
|
B. Filter |
|
|
C. filename |
|
|
D. Action |
|
|
|
|
|
7. 将命令按钮Command1设置为缺省的活动按钮可修改该控制件的_______属性。 |
|
|
A. Enabled |
|
|
B. Value |
|
|
C. Default |
|
|
D. Cancel |
|
|
|
|
|
8. 将焦点主动设置到指定的控件或窗体上,应采用_______方法。
|
|
|
A. SetData |
|
|
B. SetFocus |
|
|
C. SetText |
|
|
D. GetGata |
|
|
|
|
|
9. 下面_______控件不具有Caption属性。
|
|
|
A. 标签框 |
|
|
B. 单选钮 |
|
|
C. 命令按钮 |
|
|
D. 文本框 |
|
|
|
|
|
10. 要使得标签能自动扩充以满足字体大小则可对其_______属性进行设置。 |
|
|
A. alignment |
|
|
B. usemonic |
|
|
C. autosize |
|
|
D. tag |
|
|
|
|
|
11. 在程序代码中修改滚动条的value 属性时将激发滚动条的_______事件。
|
|
|
A. change |
|
|
B. scroll |
|
|
C. dragdrop |
|
|
D. getfocus |
|
|
|
|
|
12. 下列方法中可用于列表框动态添加数据的是_______。 |
|
|
A. add |
|
|
B. additem |
|
|
C. addlist |
|
|
D. removeitem |
|
|
|
|
|
13. 以下关于VB语言的说法中,正确的是_______。 |
|
|
A. VB是一种面向过程的语言 |
|
|
B. VB是一种面向对象语言 |
|
|
C. VB是一种低级语言 |
|
|
D.VB是一种机器语言 |
|
|
|
|
|
14. 下列的逻辑表达式中不正确的是_______。 |
|
|
A. A<B AND C=D |
|
|
B. X<Y<Z |
|
|
C. 1>2 AND 3>1 |
|
|
D. X>Y AND 1=2 |
|
|
|
|
|
15. VB中的坐标系最小刻度为_______。 |
|
|
A. 缇 |
|
|
B. 象素 |
|
|
C. 厘米 |
|
|
D. 一个标准字符宽度 |
|
|
|
|
|
16. 运行下面的程序:
CLS
LINE (100,100)-(200,50)
LINE - (150,150)
LINE -(100,100)
屏幕上显示的是_______。 |
|
|
A. 三条放射形直线 |
|
|
B. 四条放射形直线 |
|
|
C. 矩形 |
|
|
D. 三角形 |
|
|
|
|
|
17. RGB函数通过红绿蓝三基色混合产生某种颜色,某语法为RGB(红、绿、蓝),括号中红、绿、蓝三基色的成分使用0~255之间的整数。若使用三个滚动条分别输入三种基色,为保证输入数值有效,则应设置_______属性。 |
|
|
A.Max和Min |
|
|
B.Smallchange和LargeChange |
|
|
C.Scroll和Change |
|
|
D.Value |
|
|
|
|
|
18. 在逐行运行程序的语句时,可用调试窗口监视表达式和变量的值,其中_______窗口是用来显示代码中正在调试的语句所产生的信息,或显示直接在该窗口中键入的命令所请求的信息。 |
|
|
A. 立即 |
|
|
B. 监视 |
|
|
C. 本地 |
|
|
D. 中断 |
|
|
|
|
|
19. 在VB中,下列不能作为存放对象的容器是_______。 |
|
|
A. 窗体Form |
|
|
B. 框架Frame |
|
|
C. 图片框Picturebox |
|
|
D. 图象框Image |
|
|
|
|
|
20. 语句listl.removeitem 1 将删除list.listindext等于_______的项目。 |
|
|
A. 0 |
|
|
B. 2 |
|
|
C. 3 |
|
|
D. 1 |
|
|
|
|
|
答案: C,B,B,C,A,D,C,B,D,C,A,B,B,B,A,D,A,A,D,D |
|
|
|
|
|
二、填空题 |
|
|
1. 若a1和a2之中没有一个与a3的值相等,则相应的Visual Basic逻辑表达式是:_______。 |
|
|
2. 设init的初值为10,则由下列循环语句控制的循环次数是_______。
Do While init>=5
init=init-1
Loop |
|
|
3. 在Visual Basic中,变量从它的作用范围来看,可分为_______三种。 |
|
|
4. 语句Picture1.Circle(800,1000),500的含义是_______。 |
|
|
5. 声明Sstr为定长10个字符变量的语句是_______。 |
|
|
6. 设a=2,b=3,c=4,d=5,表达式(a>b Xor b<c)OR b<d EQV a<c的结果为_______。 |
|
|
7. a和b中有仅只有一个为1,相应的Visual Basic逻辑表达式为_______。 |
|
|
8. 设I=5,则由下列循环语句控制的循环次数是_______。
Do
I=I+2
Loop While I<=15 |
|
|
9. 语句Line(2000,2000)-Step(2000,1500),,BF的含义是_______。 |
|
|
10. 要使同一类型控件组成一个控件数组,必须要求_______。 |
|
|
11. 清除标签显示信息的语句为:_______。 |
|
|
12. 设x为大于零的实数,则大于x的最小奇数的Visual Basic表达式是_______。 |
|
|
13. a1和a2之中有且只有一个与a3的值相等,相应的Visual Basic逻辑表达式是:_______。 |
|
|
14. 用随机函数产生一个100~200的整数(不包括100及200),其VB表达式为_______。 |
|
|
15. 表达式32\7 MOD 3^2的值是_______。 |
|
|
答案:1.a1<>a3 and a2<>a3、2.
6、3.
全局变量、模块级变量、过程级变量 4.
以圆心为(800,1000)半径为500的圆、5.
Dim Sstr as String*10、6.
True、7.
a=1 xor b=1、8.
6、9.
绘制了一个以对角点为(2000,2000)和(4000,3500)的实心矩形、10.Name相同、11.
Label1.caption=""、12.
IIF(int(x) mod 2=0, int(x)+2,int(x)+1)、13.
a1=a3 xor a2=a3、14.
101+int(99*rnd)、15.
4 |
|
|
|
|
|
三、是非题 |
|
|
1. 滚动条控件不可作为用户输入数据的一种方法。( ) |
|
|
2. 只要用拖拽的方法,将工具箱中所需的控件拖到窗体上即可完成控件的添加。( ) |
|
|
3. 控件是对象,而窗体不是对象,它只是控件对象的窗口。( ) |
|
|
4. TextBox与Label有许多共同特点,它们都能显示和输入文本。( ) |
|
|
5. 有的对象属性既可在属性窗口中设定又可在程序代码中设定。( ) |
|
|
6. 标签没有Change事件和SetFocus方法。( ) |
|
|
7. 事件过程与Sub过程,它们相同点都是事件驱动,而不同的只是事件过程由控件属性决定,而Sub过程是由户自定义。( ) |
|
|
8. Function函数有参数传递,并且一定有返回值。( ) |
|
|
9. Visual Basic程序的运行可以从Main()过程启动,也可以从某个窗体启动。( ) |
|
|
10. 同一Form窗体中的各控件可以相互重叠,其显示的上下层次的次序不可以调整。( ) |
|
|
11. 过程中的静态变量是局部变量,当过程再次被执行时,静态变量的初值是上一次过程调用后的值。( ) |
|
|
12. 用鼠标选中某菜单控件时,触发Click事件;而用键盘选中该菜单控件时,触发KeyPress事件。( )
|
|
|
13. 组合框兼有文本框和列表框两者的功能,用户可以通过键入文本或选择列表中的项目来进行选择。( ) |
|
|
14. 在盘驱动器列表框Drive1的Change事件过程中,代码Dir1.Path=Drive1.Drive的作用是:当Drive1的驱动器改变时,Dir1的目录列表随不同驱动器的作相应改变。( ) |
|
|
15. Dim i, j as integer表明i和j都是整型变量。( ) |
|
|
|
|
|
答案:1. F、2.
F、3.
F、4.
F、5.
T、6.
T、7.
F、8.
F、9.
T、10.
F、11.
T、12. F、13.
T、14.
T、15.
F |
|
|
|
|
|
四、程序阅读题 |
|
|
1.阅读下列程序,写出运行结果。程序如下:
|
Private Sub Command16_Click()
Dim a As Integer, b As Integer, z As Integer
a = 1
b = 1
For n = 1 To 3
z = chg(a, b)
Print "n="; n, "z="; z
Next n
End Sub
Function chg(a As Integer, b As Integer) As Integer
Dim n As Integer
For n = 0 To 2
a = a + b
Next n
chg = a
End Function |
|
程序运行后,单击Command16,窗体上显示的最终结果? |
|
|
|
|
|
2. 阅读下列程序,写出运行结果。程序如下:
|
Private Sub Command15_Click()
n = 0
x = 1
y = 0
Do While x < 20
n = n + 1
y = x + y
x = x * (x + 1)
Loop
Print "n=" & Str(n)
Print "x=" & Str(x)
Print "y=" & Str(y)
End Sub |
|
程序运行后,单击Command15,窗体上显示的最终结果? |
|
|
|
|
|
3. 阅读下列程序,写出运行结果。程序如下:
|
Private Sub Command23_Click()
Dim a1 As Integer, a2 As Integer
a1 = 10: a2 = 100
wu a1, a2
Print "a1="; a1, "a2="; a2
End Sub
Private Sub wu(b1 As Integer, ByVal b2 As Integer)
b1 = b1 \ 2: b2 = b2 Mod 13
Print "b1="; b1, "b2="; b2
End Sub |
|
程序运行后,单击Command23,窗体上显示的最终结果? |
|
|
|
|
|
4. 阅读下列程序,写出运行结果。程序如下:
|
Private Sub Command7_Click()
Dim a As Integer
a = 1: I = 0
Select Case a * 2
Case 1
a = a + 1
Case 2
a = a + 2
Case Else
a = a + 3
End Select
Print "a="; a
End Sub |
|
程序运行后,单击命令按钮Command7,窗体上输出结果是? |
|
|
|
|
|
答案: |
|
|
1.
n= 1 z= 4
n= 2 z= 7
n= 3 z= 10 |
|
|
2.
n= 3
x= 42
y= 9 |
|
|
3.
b1= 5 b2= 9
a1= 5 a2= 100 |
|
|
4. a= 3 |
|
|
|
|
|
五、程序改错 |
|
|
|
|
|
1. 本题程序段是一个比赛评分程序。运行时在文本框数组中输入7个分数,单击“计算得分”命令按钮,则最后得分显示在Text2文本框中。计算规则是去掉一个最高分和一个最低分后的平均分即为最后得分,如下图所示。程序中有三处错误,请改正过来。
Private Sub Command1_Click()
Dim k As Integer
Dim sum As Single, max As Single, min As Single
sum = Val(Text1(0).Text)
max = Val(Text1(0).Text)
min = 0 '------错误1
For k = 1 To 6
If max > Val(Text1(k).Text) Then '------错误2
max = Val(Text1(k).Text)
End If
If min < Val(Text1(k).Text) Then '------错误3
min = Val(Text1(k).Text)
End If
sum = sum + Val(Text1(k).Text)
Next k
Text2 = Str(sum / 5) '------错误4
End Sub
|
|
|
2. 下列Command1的单击事件过程是一个猜数游戏,由计算机产生一个[1,100]的任意整数,输入猜数后计算机给出提示,如果5次后还没有猜中就结束游戏并公布正确答案。程序中有4处错误,请改正过来。
Private Sub Command1_Click()
Dim R As Integer
Dim X As Integer
Dim times As Integer
Randomize
R = Rnd * 100 ' -----错误1
times = 1
Do
X = Val(InputBox("输入猜数X"))
Select Case X
Case R
Print "猜中了"
Exit Do
Case X > R ' -----错误2
Print "太大了,继续猜!"
Case Else
Print "太小了,继续猜!"
End Select
times = times + 1
Loop While times > 5 ' -----错误3
If times > 5 Then
Print "猜数失败,游戏结束!"
Print "正确答案为" & Str(X) ' -----错误4
End If
End Sub |
|
|
|
|
|
答案: |
|
|
1.
错误1改正为:min = Val(Text1(0).Text)
错误2改正为:If max < Val(Text1(k).Text) Then
错误3改正为:If min > Val(Text1(k).Text) Then
错误4改正为:Text2.Text =Str((sum - max - min) / 5) |
|
|
2.
错误1改正为:R = Int(Rnd * 100)
错误2改正为:Case Is > R
错误3改正为:Loop While times <= 5
错误4改正为:Print "正确答案为" & Str(R) |
|
|
|
|
|
六、综合编程 |
|
|
|
|
|
1. 编写一个简单的文本文件编辑器。要求具有打开、复制、粘贴、保存、退出功能。用户界面如下图所示。
(1)单击“剪切”菜单(mnuCut),将文本框Text1.text中选定的内容剪切到剪贴板;
(2)单击“复制”菜单(mnuCopy),将文本框Text1.text中选定的内容复制到剪贴板;
(3)单击“粘贴”菜单(mnuPaste),将剪贴板中的内容粘贴到文本框中当前插入点处;
(4)单击“打开”菜单(mnuOpen),打开“打开”对话框,输入要打开的文本文件名后,单击确定按钮后,文件在Text1中打开。
(5)单击“保存”菜单(mnuSave),打开“保存文件”对话框,Text1.text中的内容以指定的路径及文件名保存。
(6)单击“退出”菜单(mnuExit),结束程序。
2. 随机产生n个两位正整数(n由输入对话框输入,且n>0),求出其中的偶数之和,并在标签框Label1上显示。程序写在命令按钮command1的click事件中。
|
|
|
|
|
|
1.答案(代码部分):
Private Sub mnuCopy_Click()
Clipboard.SetText Text1.SelText
End Sub
Private Sub mnuCut_Click()
Clipboard.SetText Text1.SelText
Text1.Text = ""
End Sub
Private Sub mnuExit_Click()
End
End Sub
Private Sub mnuOpen_Click()
Dim s As String
Text1.Text = ""
CommonDialog1.Action = 1
Open CommonDialog1.FileName For Input As 2
Do While Not EOF(2)
Input #2, s
Text1.Text = Text1.Text + s
Loop
Close #2
End Sub
Private Sub mnuPaste_Click()
Text1.SelText = Clipboard.GetText()
End Sub
Private Sub mnuSave_Click()
CommonDialog1.Action = 2
Open CommonDialog1.FileName For Output As 1
Print #1, Text1.Text
Close #1
End Sub |
|
|
2. 答案(代码部分):
Private Sub Command1_Click()
Dim n As Integer
Dim i As Integer, Sum As Long
n = Val(InputBox("Please input a integer", "Input N value"))
Sum = 0
For i = 1 To n
RndData = (10 + Int(90 * Rnd))
If RndData Mod 2 = 0 Then
Sum = Sum + RndData
End If
Next i
Label1.Caption = Sum
End Sub |
|