当前位置>>模拟试题>>模拟试题六  

模拟试题六
     
  一、选择题  
  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