赤峰学院vb模拟
试题
中考模拟试题doc幼小衔接 数学试题 下载云南高中历年会考数学试题下载N4真题下载党史题库下载
库含答案
模拟试题一
1．VB是一种面向对象的程序设计语言，（ ）不是面向对象系统所包含的三要素。
Ａ.属性 Ｂ.变量 Ｃ.方法 Ｄ.事件
2.不论何控件，共同具有的是( )属性。
A．Caption B.Text C. Name D.ForeColor
3. 程序代码如下：
Command1.Caption=”确定”，则Command1、Caption、“确定”分别代表（ ）
A.属性、对象、值 Ｂ.对象、值、属性
C.对象、方法、属性 Ｄ.对象、属性、值
4.下面( )是不合法的整型常数。
A．278 B. &O278 C. &H278 D. 278％
5.为了给x、y、z三个变量赋初值1，下面正确的赋值语句是( )。
A．x=y=z=1 B．x=1，y＝1，z＝1
C．x=1：y＝1：z＝1 D．xyz=1
6.赋值语句：a=123+Mid(“123456”，3，2)执行后，变量a中的值是( )。
A．”12334” B．12334 C．157 D．123
7. 数学关系3≤x<10表示成正确的VB表达式为（ ）
Ａ、3<=x<10 Ｂ、3<=x AND x<10
Ｃ、x>=3 OR x<10 Ｄ、3<=x AND <10
8.产生[10，37]之间的随机整数的VB表达式（ ）
Ａ.Int(Rnd(1)*27)+10 Ｂ.Int(Rnd(1)*28)+10
Ｃ.Int(Rnd(1)*27)+11 Ｄ.Int(Rnd(1)*28)+11
9. 表达式16/4-2^5*8/4 MOD 5\2的值为（ ）。
A.20 B.14 C.4 D.2
10.对命令按钮的Picture属性装入.bmp图形文件后，命令按钮上并没有显示图形，原因是没有对（ ）属性设置为1。
A.MousePictrue B.Style
C.DownPicture D.DisabledPicture
11．下列对象中不能做为容器的控件是( )。
A．窗体 B． PictureBox控件
C．Image控件 D． Frame控件
12.下面程序段运行后，显示结果是( )。
Dim x
If x Then Print x Else Print x+1
A．0 B．1 C．－1 D．显示出错信息
13.循环语句For i= -3.5 To 5.5 Step -0.5的循环次数是( )。
A．20 B．19 C．18 D．0
14.如下数组声明语句Dim a(3，-2 to 2，5) As Long，则数组a包含元素的个数是( )。
A．120 B．75 C．60 D．13
15．决定组合框样式的属性是( )。
A．List B．Text C．Style D．Caption
16．滚动条的（ ）属性用于返回或设置滚动条的当前值。
Ａ.Ｖalue Ｂ.Max Ｃ.Min Ｄ.Data
17.下面子过程语句说明合法的是( )。
A．Function f1%(f1%) B．Function f1(ByVal n%)
C．Sub f1(Byval n%( )) D．Sub f1(n%) As Integer
18.在过程中定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则应使用( )关键字的在过程中定义局部变量。
A．Static B．Public C．Private D．Dim
19.下列控件中没有Caption属性的是（ ）。
A．框架 B．单选按钮 C．列表框 D．复选框
20. 以下不属于键盘事件的是（ ）
A.KeyDown B. KeyUp C. Unload D. KeyPress
21.下列关于菜单的说法，错误的是( )。
A．每个菜单项都是一个控件，与其它控件一样也有自己的属性和事件
B．菜单项的快捷键不能任意设置
C．在程序运行时，如果菜单项的Enabled属性为False，则该菜单项编程灰色，不能被用户选择
D．除了Click事件之外，菜单项还能响应其它的事件，如DblClick
22.下列关于通用对话框的叙述中，错误的是( )。
A．通用对话框可以用来制作和显示“帮助”对话框
B．CommonDialog1.ShowFont显示“字体”对话框
C．在“打开”或“另存为”对话框中，用户选择的文件名可以经FileTitle属性返回
D．在“打开”或“另存为”对话框中，用户选择的文件名及其路径可以经FileName属性返回
23. 指令“Circle（1000，1000），500，，－6，－3”将绘制( )。
A．画圆 B．椭圆 C．扇形 D．圆弧
24．假如列表框（List1）有四个数据项，把数据项“数据库原理”添加到列表框的最后，应使用（ ）语句。
A．List1.AddItem “数据库原理”，List1.ListCount
B．List1.AddItem “数据库原理”，List1.ListCount-1
C．List1.AddItem 3，“数据库原理”
D．List1.AddItem “数据库原理”，3
25. VB提供了结构化程序设计的三种基本结构，三种基本结构是（ ）。
A．递归结构、选择结构、循环结构
B．选择结构、过程结构、顺序结构
C．过程结构、输入、输出结构、转向结构
D．选择结构、循环结构、顺序结构
26.在一个多窗体程序中，Form1是启动窗体，当程序运行后要想显示Form2窗体，正确的语句是( )。
A．Show Form2 B．Form2.show C．Load Form2 D．Form2.Load
27．要从磁盘上读入一个文件名为“c:\t1.txt”的顺序文件，下列（ ）正确。
A.f=”c:\t1.txt” B.f=”c:\t1.txt”
Open “f” For Input As #1 Open f For Input As #1
C.Open ”c:\t1.txt”For output As #1 D.Open c:\t1.txt For input As #1
28．假定有如下事件过程：
Private Sub Form_MouseDown(Button as Integer,Shift as Integer, X as Single,Y as Single)
If Button=2 Then PopupMenu PopForm
End Sub
则以下描述中错误的是（ ）。
A.该过程的功能是弹出一个菜单
B.popForm是在菜单编辑器中定义的弹出式菜单的名称
C.参数X、Y指明鼠标的当前位置
D.Button＝2表示按下的是鼠标左键
29.Print #1,Str1$中的Print是( ).
A．在窗台上显示的方法 B．文件的写语句
C．子程序明 D．以上均不是
30. 在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：
程序运行后，如果单击命令按钮，则在窗体上显示的
内容
财务内部控制制度的内容财务内部控制制度的内容人员招聘与配置的内容项目成本控制的内容消防安全演练内容
是（ ）。
A. 北京 B. 上海 C. 天津 D. 重庆
二、填空题（每空2分，共20分）
1．ＶＢ是一种面向对象的可视化程序设计语言，采取了_[ 1]_的编程机制。
2．算术表达式 |x+y|+35 写成VB表达式的形式为 [2 ] 。
3．使文本框可以获得焦点的方法是 [ 3 ] 。
4．表示x是5的倍数或是9的倍数的逻辑表达式为 [4] 。
5．Inputbox函数的返回值是 [5] 类型，Msgbox函数的返回值是 [6] 类型。
7.在调用自定义函数时，参数的传递有 [ 7 ] 和 [ 8 ] 两种形式。
7．在默认情况下，如下数组声明语句中 Dim s(4，4) As Integer，第二个数组元素的引用形式是 [9 ] 。
8．如果要每隔12s触发一个Timer事件，则Interval属性应设置为 [ 10] 。
三、写出下列程序的正确运行结果（每题5分，共10分）
1. Private Sub Command1_Click( )
x=Int(Rnd)+3
If x^2>8 Then y=x^2+1
If x^2=9 Then y=x^2-2
If x^2<8 Then y=x^3
Print “y=”;y
End Sub
2． Public Sub Swap(ByVal x As Integer, y As Integer)
Dim t As Integer
t=x: x=y: y=t
End Sub
Private Sub Command1_Click( )
Dim a As Integer ,b As Integer
a=30: b=20
Swap a ,b
Print “a=”; a ;”b=”; b
End Sub
四、程序设计题（10分）
求1+2+3+……+100累加和（单击窗体执行程序）。
答案
一、选择题（每题2分，共60分）
BCDBC CBBCB CBDAC ABACC DACAD BBDBC
二、填空题（每空2分，共20分）
【1】事件驱动 【2】Abs(x+y)+3^5 【3】SetFocus
【4】x mod 5=0 or x mod 9=0 【5】字符 【6】数值 【7】传值
【8】传址 【9】s (1,1) 【10】12000
三、写出程序的正确运行结果（每题5分，共10分）
1. y= 7
2. a=30 b=30
四、编程题（10分）
Private sub form_click()
Dim i%，s！ (2’)
S=0 (2’)
For i=1 to 100 (2’)
S=s+I (2’)
Next
Print “s=”;s (2’)
End Sub
模拟试题二
一、选择题（四个选择项中，有一个为正确答案。每题2分，共50分）
1．下列符号中哪个是VB程序中合法的变量名（ ）。
A、123abc B、integer C、X_yz D、X—Y
2．程序代码如下：
Text1.text=”Visual Basic”，则Text11、text、“Visual Basic”分别代表（ ）
Ａ、对象、属性、值 Ｂ、对象、值、属性
Ｃ、对象、方法、属性 Ｄ、属性、对象、值
3．文本框没有（ ）属性
A、Enabled B、Visible
C、BackColor D、Caption
4．下面( )是不合法的整型常数。
A．278 B. &O278 C. &H278 D. 278％
5．表达式16/4-2^5*8/4 MOD 5\2的值为（ ）。
A、20 B、14 C、4 D、2
6．下面正确的赋值语句是（ ）。
A、x+y=30 B、y=π*r*r C、y=x+30 D、3y=x
7．用If语句表示分段函数
下列不正确的程序段是（ ）。
A、If x>=1 Then B、If x<1 Then
f=sqr(x+1) f=x*x+3
Else Else
f=x*x+3 f=sqr(x+1)
End If End If
C、If x>=1 Then f=sqr(x+1) D、If x>=1 Then f=sqr(x+1)
If x<1 Then f=x*x+3 f=x*x+3
8．循环语句For i= -3.5 To 5.5 Step -0.5的循环次数是( )。
A．20 B．19 C．18 D．0
9． 数学关系3≤x<10表示成正确的VB表达式为（ ）
Ａ、3<=x<10 Ｂ、3<=x AND x<10
Ｃ、x>=3 OR x<10 Ｄ、3<=x AND <10
10．在数组声明语句Dim a(3，-2 to 2，5) As Long中，数组a包含元素的个数为（ ）。
Ａ、13 Ｂ、60 Ｃ、75 Ｄ、120
11．滚动条的（ ）属性用于返回或设置滚动条的当前值。
Ａ、Ｖalue Ｂ、Max Ｃ、Min Ｄ、Data
12．在过程中定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则应使用（ ）关键字在过程中声明局部变量。
Ａ、Private Ｂ、Public Ｃ、Static Ｄ、Dim
13．假如列表框（List1）有四个数据项，把数据项“数据库原理”添加到列表框的最后，应使用（ ）语句。
A、List1.AddItem “数据库原理”，List1.ListCount
B、List1.AddItem “数据库原理”，List1.ListCount-1
C、List1.AddItem 3，“数据库原理”
D、List1.AddItem “数据库原理”，3
14．要从磁盘上读入一个文件名为“c:\t1.txt”的顺序文件，下列（ ）正确。
A、f=”c:\t1.txt” B、f=”c:\t1.txt”
Open “f” For Input As #1 Open f For Input As #1
C、Open ”c:\t1.txt”For output As #1 D、Open c:\t1.txt For input As #1
15．下列关于菜单的说法中，错误的是 ( )。
Ａ、每个菜单项都是一个控件，与其它控件一样也有自己的属性和事件。
Ｂ、菜单项的快捷键不能任意设置。
Ｃ、除了Click事件之外，菜单项还能响应DblClick事件。
Ｄ、在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择。
16．指令Circle(1000,1000)，500，8，-6，-3将绘制（ ）。
A、圆弧 B、扇形 C、圆 D、椭圆
17．下列关于通用对话框的叙述中，错误的是( )。
A．通用对话框可以用来制作和显示“帮助”对话框
B．CommonDialog1.ShowFont显示“字体”对话框
C．在“打开”或“另存为”对话框中，用户选择的文件名可以经FileTitle属性返回
D．在“打开”或“另存为”对话框中，用户选择的文件名及其路径可以经FileName属性返回
18．对命令按钮的Picture属性装入.bmp图形文件后，命令按钮上并没有显示图形，原因是没有对（ ）属性设置为1。
A、MousePictrue B、Style C、DownPicture D、DisabledPicture
19．当用户对滚动条施以（ ）动作时，便触发了滚动条的Scroll事件
A、单击滚动条的左右按钮时 B、双击滚动条的左右按钮时
C、单击滚动条的空白处时 D、拖动滚动条的滑块时
20．要使Print方法在Form_Load事件中起作用，要对窗体的（ ）属性进行设置。
A、AutoRedraw B、Caption C、BackStyle D、Visible
21．下列关于键盘事件的说法中，正确的是( )。
A．按下键盘上的任意一个键都会触发KeyPress事件
B．大键盘上的“1”键和数字键盘的“1”键的KeyCode码相同
C．KeyDown和KeyUp的事件过程中都有KeyCode参数
D．KeyDown和KeyUp的事件过程中都有KeyAscii参数
22. 在一个多窗体程序中，Form1是启动窗体，当程序运行后要想显示Form2窗体，正确的语句是( )。
A．Show Form2 B．Form2.show C．Load Form2 D．Form2.Load
23. 决定组合框样式的属性是( )。
A．List B．Text C．Style D．Caption
24. 下列对象中不能做为容器的控件是( )。
A．窗体 B．Image控件 C．PictureBox控件 D． Frame控件
25. 下面子过程语句说明合法的是( )。
A．Function f1%(f1%) B．Function f1(ByVal n%)
C．Sub f1(Byval n%( )) D．Sub f1(n%) As Integer
二、填空题（每空1分，共20分）
1．ＶＢ是一种面向 [ 1 ] 的可视化程序设计语言，采取了_[ 2 ]_的编程机制。
2．算术表达式 |x+y|+35 写成VB表达式的形式为 [3 ] 。
3．使文本框可以获得焦点的方法是 [ 4 ] 。
4．Inputbox函数的返回值是 [5] 类型，Msgbox函数的返回值是 [6] 类型。
5．在调用自定义函数时，参数的传递有 [ 7 ] 和 [ 8 ] 两种形式。
6．在如下数组声明语句中 Dim s(4，4) As Integer，第一个数组元素的引用形式是 [9 ] 。
7．如果要每隔0.5 s触发一个Timer事件，则Interval属性应设置为 [ 10 ] 。
8．单选按钮和复选框都有Value属性，但二者该属性值的类型不一样，其中单选按钮该属性值类型为 [ 11 ] ，复选框该属性值类型为 [ 12 ] 。
9．要在程序中显示通用对话框，要对CommonDialog控件的 [ 13 ] 属性赋以正确的值。
10．VB提供了三种访问文件的模式，按照访问模式可以把文件分为顺序文件、 [ 14 ] 和二进制文件。
11．使用Line方法画矩形，必须在指令中使用关键字 [ 15 ] 。
12．窗体上有一命令按钮，程序运行时，决定该按钮是否可用应设置的属性是 [ 16 ] ，决定该按钮是否显示应设置的属性是 [ 17 ] 。
13．VB程序设计语言具有结构化程序设计的三种基本结构，即 [18 ]、 [19 ] 、
[20 ] 。
三、写出下列程序的正确运行结果（每题5分，共10分）
1. Private Sub Command1_Click( )
x=Int(Rnd)+3
If x^2>8 Then y=x^2+1
If x^2=9 Then y=x^2-2
If x^2<8 Then y=x^3
Print “y=”;y
End Sub
2. Public Sub Swap(ByVal x As Integer, y As Integer)
Dim t As Integer
t=x: x=y: y=t
End Sub
Private Sub Command1_Click( )
Dim a As Integer ,b As Integer
a=30: b=20
Swap a ,b
Print “a=”; a ;”b=”; b
End Sub
四、判断对错（对的画“√”，错的画“×”。每题1分，共10分）
1．若用户在键盘上按下一个键，则会触发Click事件。（ ）
2．窗体大小只能通过鼠标拖动窗体边框来设置。（ ）
3．在编写程序代码时，在同一行上可以书写多条语句，语句间用“：”分隔。（ ）
4．在For循环语句中，能强制退出循环的语句是End For。（ ）
5．声明数组时，数组的下标可以是变量。（ ）
6．窗体上的Timer控件不可以改变大小。（ ）
7．自定义函数过程开始的保留字是“Sub”。（ ）
8．列表框的List属性是一个字符型数组。（ ）
9．将数据写入顺序文件，通常有打开、写入、 关闭三个步骤。（ ）
10．PictureBox和Image两个控件都是容器类控件，可在其中存放其它控件。（ ）
五、程序设计题（10分）
1．编写事件代码，求1—100之间能被5整除或被7整除的数的累加和，要求单击窗体时执行事件代码，并在窗体上输出运行结果。
答案
一、选择题（四个选择项中，有一个为正确答案。每题2分，共50分）
CADBC CDBBD ACBBC BABDA CBCBB
二、填空题（每空1分，共20分）
[1] 对象 [2] 事件驱动 [3] Abs(x+y)+3^5 [4] SetFocus
[5] 字符型 [6] 数值(整型) [7] 传值 [8] 传址
[9] S(0，0) [10] 500ms [11] 逻辑型 [12] 数值型(整型)
[13] Action [14] 随机文件 [15] B [16] Enabled
[17] Visible [18] 顺序结构 [19] 选择结构 [20] 循环结构
三、写出下列程序的正确运行结果（每题5分，共10分）
1. y= 7
2. a= 30 b=30
四、判断对错（对的画“√”，错的画“×”。每题1分，共10分）
××√×× √×√√×
五、程序设计题（10分）
Private Sub Form_Click( )
Dim i%,s！
S=0
For i=1 to 100
If i mod 5=0 or i mod 7=0 then s=s+i
Next i
Print “s=”;s
End Sub
模拟试题三
1、 选择题（每题2分，计60分）
(1)下列可自动设置滚动条的控件是( )
A) 复选框 B) 框架 C) 文本框 D) 标签框
(2) 计时器控件的（ ）属性用于设置Timer事件发生的时间间隔。
A) Stretch B) Interval C) Value D) Length
(3) 表达式（7\3+1）*(18\5-1)的值是（ ）
A) 6 B) 7.8 C) 8．76 D) 6.67
(4) 函数InStr(“VB程序设计
教程
人力资源管理pdf成真迷上我教程下载西门子数控教程protel99se入门教程fi6130z安装使用教程
”,”程序”)的值为（ ）
A)1 B)2 C)3 D)4
(5) 有程序代码如下：
Label1.caption=”程序设计”
则label1、caption、”程序设计”分别代表（）。
A) 对象、属性、值
B)对象、值、属性
C) 对象、方法、属性
D)属性、方法、值
(6) Inputbox函数返回值的类型是（）。
A) 整型数值 B) 字符串 C)变体 D)数值或字符串
(7) 设a=6，则执行 x=IIf(a>5,-1,0)后，x 的值为() 。
A) 5 B) 6 C) 0 D) -1
(8) 产生[60，100]之间的随机整数的Visual Basic表达式是（）。
A) Int(Rnd*40)+60 B) Int(Rnd*40)+61
C) Int(Rnd*41)+60 D) Int(Rnd*41)+61
(9) 执行语句s=Len(Mid("VisualBasic",1,6))后，s的值是
A) Visual B) Basic C) 6 D) 11
(10) 下面（）是合法的变量名。
A) dim B) m-1 C) _123 D) X_t6
(11) 下面正确的赋值语句是（）。
A）x=y+3 B）x=y=3
C）x+y=3 D）3x=y
(12)VB提供了结构化程序设计的三种基本结构，三种基本结构是（）。
A）递归结构、选择结构、循环结构
B）选择结构、过程结构、顺序结构
C）过程结构、输入、输出结构、转向结构
D）选择结构、循环结构、顺序结构
(13) 确定一个控件在窗体上的位置的属性是（）。
A) Width和HeightB) Width或Height
C) Top和Left D) Top或Left
(14) 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程
Private Sub Command1_Click()
Text1.Text = "Visual"
Text1 = "Basic"
Text1 = "Program"
End Sub
程序运行后，如果单击命令按钮，则在文本框中显示的是
A) 出错 B) Visual C) Basic D) Program
(15) 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim array1(10, 10) As Integer
Dim i As Integer, j As Integer
For i = 1 To 3
For j = 2 To 4
array1(i, j) = i + j
Next j
Next i
Text1.Text = array1(2, 3) + array1(3, 4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是
A) 15 B) 14 C) 13 D) 12
(16) 设菜单中有一个菜单项为"Open"。若要为该菜单命令设计访问键，即按下Alt及字母O时，能够执行"Open"命令，则在菜单编辑器中设置“Open"命令的方式是
A) 把Caption属性设置为&Open B) 把Caption属性设置为O&pen
C) 把Name属性设置为&Open D) 把Name属性设置为O&pen
(17) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x=InputBox("Input")
Select Case x
Case 1,3
Print "分支 1"
Case 2,4
Print "分支 2"
Case Else
Print "Else 分支 "
End Select
End Sub
程序运行后，如果在输入对话框中输入2，则窗体上显示的是（）。
A） 分支1 B） 分支2 C） Else分支 D) 程序出错
(18) for k=13 to -5 step -2循环次数为：（）。
A) 7 B) 8 C) 9 D) 10
(19)用下面语句定义的数组的元素个数是( )
Dim a(3,1 To 5) As Integer
A)8 B)15 C)20 D)21
(20) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
a$="Program"
Print String(3,a$)
End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是
A）Pro B) ram C) gra D) PPP
(21) 保存一个工程至少应保存两个文件，这两个文件分别是（ ）
A)文本文件和工程文件 B)窗体文件和工程文件
C)窗体文件和
标准
excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载
模块文件 D)类模块文件和工程文件
(22) 下列表达式的值为2123的是（ ）
A) Val("123asd") & 2000 B) Val("123") + 2000
C) Str(123) & "2000" D)Str(123)+"2000"
(23) 表示滚动条控件取值范围最大值的属性是（）。
A）Max B）LargeChange C）Value D）Max-Min
(24) 当使用Line方法时，参数B与F可组合使用，下列组合中（）不允许。
A)BF B)B C)省略不用 D)F
(25)可以RGB(x,y,z)函数获取颜色，下面的数字对应了x,y,z三个参数，其中不合法的是（）。
A)0，0，0 B) 200，255，129 C) 100，256，200 D)255，255，0
(26) 在用菜单编辑器设计菜单时，必须输入的项有（）。
A)快捷键 B)索引 C)热键 D)名称
(27) 在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：
Option Base 0
Private Sub Command1_Click()
Dim city As Variant
city = Array("北京", "上海", "天津", "重庆")
Print city(1)
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是
A）空白 B）错误提示 C）北京 D）上海
(28) 假定有以下函数过程：
Function Fun(S As String) As String
Dim s1 As String
For i = 1 To Len(S)
s1 = UCase(Mid(S, i, 1)) + s1
Next i
Fun = s1
End Function
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim Str1 As String, Str2 As String
Str1 = InputBox("请输入一个字符串")
Str2 = Fun(Str1)
Print Str2
End Sub
程序运行后，单击命令按钮，如果在输入对话框中输入字符串"abcdefg"，则 单击"确定"按钮后在窗体上的输出结果为
A）gfedcba B）ABCDEFG C）GFEDCBA D）abcdefg
(29) Circle(500,600)，500， ， ， ,3将绘制（ ）。
A)圆弧 B)扇形 C)圆 D)椭圆
(30) 在窗体上画一个命令按钮，名称为Command1，然后编写如下程序：
Private Sub Command1_Click()
int t1
Static t2
t1=t1+1
t2=t2+1
End Sub
三次单击命令按钮后，t1,t2的值分别为（）：
A) 1 1
B) 3 3 C) 1 3 D) 3 1
2、 填空题（每题2分,计16分）
1． 窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。
Private Sub Command1_Click()
Sum =0
For i=0 To__【 2_】__
Sum =Sum+_【_3 】_____
Next i
Text1.Text=Sum
End Sub
2．按存储信息的形式分类，文件可以分为【 4 】和【 5 】。
3． 以下语句输出结果是 【 6 】 。
Print Int(12345.6789 * 100 + 0.5) / 100。
4．数学表达式
的VB算术表达式为【 7 】。
5．表达式Lcase(left(“ABCDEFG”,5)的值是【 8 】。
6．设有如下程序：
Option Base 1
Private Sub Command1_Click()
Dim arr1
Dim Min As Integer, i As Integer
arr1 = Array(12, 435, 76, -24, 78, 54, 866, 43)
Min = 【9】
For i = 2 To 8
If arr1(i) < Min Then 【10】
Next i
Print "最小值是："; Min
End Sub
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。
三、写出下面程序的运行结果（10分）
1. Private Sub Command1_Click()
x = 0
n = InputBox("")
For i = 1 To n
For j = 1 To i
x = x + 1
Next j
Next i
Print x
End Sub
程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是:
2. Private Function f(m As Integer)
If m Mod 2 = 0 Then
f = m
Else
f = 1
End If
End Function
Private Sub Command1_Click()
Dim i As Integer
s = 0
For i = 1 To 5
s = s + f(i)
Next i
Print s
End Sub
单击命令按钮后，程序的运行结果为：
四、程序设计（10分）
定义命令按钮的单击事件，当单击命令按钮时输出能被3整除的所有三位数。
答案
一、选择题
cbaca bdccd adcdd abdcd bbadc ddcdc
二、填空题
（1）list1.additem i list1.listcount-1 list1.list(i)
（2）ASCII文件 二进制文件
（3）12345.68
（4）Sqrt(x)/2/(x+y)+3^2-3*x
（5）abcdef
（6）Array(1) min=array(1)
三、写程序结果
1、6
2、9
四、程序设计题
Private Sub Command1_Click()
Dim i As Integer
For i = 100 To 999
If i Mod 3 = 0 Then
Print i
End If
Next i
End Sub
模拟试题四
一、选择题（四个选择项中，有一个为正确答案。每题2分，共40分）
1．VB是一种面向对象的程序设计语言，（ ）不是面向对象系统所包含的三要素。
Ａ、属性 Ｂ、变量 Ｃ、方法 Ｄ、事件
2．程序代码如下：
Command1.Caption=”确定”，则Command1、Caption、“确定”分别代表（ ）
Ａ、对象、属性、值 Ｂ、对象、值、属性
Ｃ、对象、方法、属性 Ｄ、属性、对象、值
3．下列符号中哪个是VB程序中合法的变量名（ ）。
A、123abc B、integer C、X_yz D、X—Y
4．不论何控件，共同具有的属性是（ ）。
A、Caption B、Name C、Text D、ForeColor
5．表达式16/4-2^5*8/4 MOD 5\2的值为（ ）。
A、20 B、14 C、4 D、2
6．给x，y，z三个变量赋初值1，下面正确的赋值语句是（ ）。
A、x=y=z=1 B、x=1，y=1，z=1 C、x=1；y=1；z=1 D、x=1：y=1：z=1
7．用If语句表示分段函数
下列不正确的程序段是（ ）。
A、If x>=1 Then B、If x<1 Then
f=sqr(x+1) f=x*x+3
Else Else
f=x*x+3 f=sqr(x+1)
End If End If
C、If x>=1 Then f=sqr(x+1) D、If x>=1 Then f=sqr(x+1)
If x<1 Then f=x*x+3 f=x*x+3
8．下列循环语句能正常结束循环的是（ ）。
A、i=10 B、i=5
Do Do
i=i-1 i=i+1
Loop Until i<0 Loop Until i<0
C、i=1 D、i=6
Do Do
i=i+2 i=i-2
Loop Until i=10 Loop Until i=1
9． 产生[10，37]之间的随机整数的VB表达式（ ）
Ａ、Int(Rnd(1)*27)+10 Ｂ、Int(Rnd(1)*28)+10
Ｃ、Int(Rnd(1)*27)+11 Ｄ、Int(Rnd(1)*28)+11
10．在数组声明语句Dim a(3，-2 to 2，5) As Long中，数组a包含元素的个数为（ ）。
Ａ、13 Ｂ、60 Ｃ、75 Ｄ、120
11．滚动条的（ ）属性用于返回或设置滚动条的当前值。
Ａ、Ｖalue Ｂ、Max Ｃ、Min Ｄ、Data
12．在过程中定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则应
使用（ ）关键字在过程中声明局部变量。
Ａ、Private Ｂ、Public Ｃ、Static Ｄ、Dim
13．假如列表框（List1）有四个数据项，把数据项“数据库原理”添加到列表框的最后，
应使用（ ）语句。
A、List1.AddItem “数据库原理”，List1.ListCount
B、List1.AddItem “数据库原理”，List1.ListCount-1
C、List1.AddItem 3，“数据库原理”
D、List1.AddItem “数据库原理”，3
14．要从磁盘上读入一个文件名为“c:\t1.txt”的顺序文件，下列（ ）正确。
A、f=”c:\t1.txt” B、f=”c:\t1.txt”
Open “f” For Input As #1 Open f For Input As #1
C、Open ”c:\t1.txt”For output As #1 D、Open c:\t1.txt For input As #1
15．下列关于菜单的说法中，错误的是 ( )。
Ａ、每个菜单项都是一个控件，与其它控件一样也有自己的属性和事件。
Ｂ、除了Click事件之外，菜单项还能响应DblClick事件。
Ｃ、菜单项的快捷键不能任意设置。
Ｄ、在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择。
16．指令Circle(1000,1000)，500，8，-6，-3将绘制（ ）。
A、圆弧 B、扇形 C、圆 D、椭圆
17．下列叙述不正确的是（ ）。
A、InputBox函数的返回值为字符型。
B、MsgBox函数的返回值为所单击按钮的键值。
C、MsgBox语句的返回值为所单击按钮的键值。
D、Shell函数的返回值为所执行文件的工作代码。
18．对命令按钮的Picture属性装入.bmp图形文件后，命令按钮上并没有显示图形，原因是没有对（ ）属性设置为1。
A、MousePictrue B、Style C、DownPicture D、DisabledPicture
19．当用户对滚动条施以（ ）动作时，便触发了滚动条的Scroll事件
A、单击滚动条的左右按钮时 B、双击滚动条的左右按钮时
C、单击滚动条的空白处时 D、拖动滚动条的滑块时
20．要使Print方法在Form_Load事件中起作用，要对窗体的（ ）属性进行设置。
A、AutoRedraw B、Caption C、BackStyle D、Visible
二、填空题（每空1分，共20分）
1．ＶＢ是一种面向 [ 1 ] 的可视化程序设计语言，采取了_[ 2 ]_的编程机制。
2．算术表达式 |x+y|+35 写成VB表达式的形式为 [3 ] 。
3．使文本框可以获得焦点的方法是 [ 4 ] 。
4．表达式123+23 mod 10\3的值为 [5 ] 。
5．有下列For语句For i= -3 To 20 Step 4 则该语句的循环次数为 [ 6 ] 次。
6．在调用自定义函数时，参数的传递有 [ 7 ] 和 [ 8 ] 两种形式。
7．在如下数组声明语句中 Dim s(4，4) As Integer，第一个数组元素的引用形式是 [9 ] 。
8．如果要每隔0.5 s触发一个Timer事件，则Interval属性应设置为 [ 10 ] 。
9．单选按钮和复选框都有Value属性，但二者该属性值的类型不一样，其中单选按钮该属
性值类型为 [ 11 ] ，复选框该属性值类型为 [ 12 ] 。
10．要在程序中显示通用对话框，要对CommonDialog控件的 [ 13 ] 属性赋以正确的值。
13．VB提供了三种访问文件的模式，按照访问模式可以把文件分为顺序文件、 [ 14 ] 和
二进制文件。
14．使用Line方法画矩形，必须在指令中使用关键字 [ 15 ] 。
15．窗体上有一命令按钮，程序运行时，决定该按钮是否可用应设置的属性是 [ 16 ] ，决定该
按钮是否显示应设置的属性是 [ 17 ] 。
16．VB程序设计语言具有结构化程序设计的三种基本结构，即 [18 ]、 [19 ] 、
[20 ] 。
三、完善程序题（每空1分，共10分）
1．求两个自然数m,n的最大公约数
Private Sub Form_Click()
Dim m%，n%，t%，r%
m=InputBox(“输入m”)
n= InputBox(“输入n”)
If m
=1 Then B.If x<1 Then
f=sqr(x+1) f=x*x+3
Else Else
f=x*x+3 f=sqr(x+1)
End If End If
C.If x>=1 Then f=sqr(x+1) D.If x>=1 Then f=sqr(x+1)
If x<1 Then f=x*x+3 f=x*x+3
21.下列关于菜单的说法，错误的是( )。
A．每个菜单项都是一个控件，与其它控件一样也有自己的属性和事件
B．菜单项的快捷键不能任意设置
C．在程序运行时，如果菜单项的Enabled属性为False，则该菜单项编程灰色，不能被用户选择
D．除了Click事件之外，菜单项还能响应其它的事件，如DblClick
22.下列关于通用对话框的叙述中，错误的是( )。
A．通用对话框可以用来制作和显示“帮助”对话框
B．CommonDialog1.ShowFont显示“字体”对话框
C．在“打开”或“另存为”对话框中，用户选择的文件名可以经FileTitle属性返回
D．在“打开”或“另存为”对话框中，用户选择的文件名及其路径可以经FileName属性返回
23. 指令“Circle（1000，1000），500，，－6，－3”将绘制( )。
A．画圆 B．椭圆 C．扇形 D．圆弧
24．假如列表框（List1）有四个数据项，把数据项“数据库原理”添加到列表框的最后，应使用（ ）语句。
A、List1.AddItem “数据库原理”，List1.ListCount
B、List1.AddItem “数据库原理”，List1.ListCount-1
C、List1.AddItem 3，“数据库原理”
D、List1.AddItem “数据库原理”，3
25.下列关于键盘事件的说法中，正确的是( )。
A．按下键盘上的任意一个键都会触发KeyPress事件
B．大键盘上的“1”键和数字键盘的“1”键的KeyCode码相同
C．大键盘上的“1”键和数字键盘的“1”键的KeyAscii码相同
D．KeyDown和KeyUp的事件过程中都有KeyAscii参数
26.在一个多窗体程序中，Form1是启动窗体，当程序运行后要想显示Form2窗体，正确的语句是( )。
A．Show Form2 B．Form2.show C．Load Form2 D．Form2.Load
27．要从磁盘上读入一个文件名为“c:\t1.txt”的顺序文件，下列（ ）正确。
A.f=”c:\t1.txt” B.f=”c:\t1.txt”
Open “f” For Input As #1 Open f For Input As #1
C.Open ”c:\t1.txt”For output As #1 D.Open c:\t1.txt For input As #1
28．假定有如下事件过程：
Private Sub Form_MouseDown(Button as Integer,Shift as Integer, X as Single,Y as Single)
If Button=2 Then PopupMenu PopForm
End Sub
则以下描述中错误的是（ ）。
A.该过程的功能是弹出一个菜单
B.popForm是在菜单编辑器中定义的弹出式菜单的名称
C.参数X、Y指明鼠标的当前位置
D.Button＝2表示按下的是鼠标左键
29.Print #1,Str1$中的Print是( ).
A．在窗台上显示的方法 B．文件的写语句
C．子程序明 D．以上均不是
30. 在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：
程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。
A. 北京 B. 上海 C. 天津 D. 重庆
二、填空题（每空2分，共20分）
1．ＶＢ是一种面向对象的可视化程序设计语言，采取了_[ 1]_的编程机制。
2．算术表达式 |x+y|+35 写成VB表达式的形式为 [2 ] 。
3．使文本框可以获得焦点的方法是 [ 3 ] 。
4．表示x是5的倍数或是9的倍数的逻辑表达式为 [4] 。
5．Inputbox函数的返回值是 [5] 类型，Msgbox函数的返回值是 [6] 类型。
7.在调用自定义函数时，参数的传递有 [ 7 ] 和 [ 8 ] 两种形式。
7．在默认情况下，如下数组声明语句中 Dim s(4，4) As Integer，第二个数组元素的引用形式是 [9 ] 。
8．如果要每隔12s触发一个Timer事件，则Interval属性应设置为 [ 10] 。
三、写出下列程序的正确运行结果（每题5分，共10分）
1．Private Sub Command1_Click( )
Print Int(-4.5)+Round(-4.5);
Print Lcase(“AAbbEE”);
Print Len(“vb程序设计语言”);
Print Mid(“计算机科学与技术”,4,2);
Print Trim(“abc ”)+“def”
End Sub
2． Public Sub Swap(ByVal x As Integer, y As Integer)
Dim t As Integer
t=x: x=y: y=t
End Sub
Private Sub Command1_Click( )
Dim a As Integer ,b As Integer
a=30: b=20
Swap a ,b
Print “a=”; a ;”b=”; b
End Sub
四、程序设计题（10分）
1．输入任意一个正整数n，如果n为偶数求n的阶乘；如果n为奇数，则求1到n的累加和（单击窗体执行程序）。
答案
一、选择题（每题2分，共60分）
ACDBC CABCC BBDAC BBACD DACAC BBDBC
二、填空题（每空2分，共20分）
【1】事件驱动 【2】Abs(x+y)+3^5 【3】SetFocus
【4】x mod 5=0 or x mod 9=0 【5】字符 【6】数值 【7】传值
【8】传址 【9】s (1,1) 【10】12000
三、写出程序的正确运行结果（每题5分，共10分）
1. －9 aabbee 8科学abcdef
2. a=30 b=30
四、编程题（10分）
Private sub form_click()
Dim n%，i%，t!，s！ (1’)
t=1 (1’)
s=0 (1’)
n=Inputbox(“输入n”) (1’)
If Val(n) mod 2=0 Then (2’)
For i=1 to n (1’)
t=t*i
Next i
Print “t=”;t (1’)
Else
For i=1 to n (1’)
s=s+i
Next i
Print “s=”;s (1’)
End If
Print
End Sub
模拟试题六
一、选择题（四个选择项中，有一个为正确答案，每题2分，共60分。）
1．VB是一种面向对象的可视化程序设计语言，采取了( )的编程机制。
A．按过程顺序执行 B．按模块顺序执行
C．事件驱动 D．从主程序开始执行
2.要在文本框Text1中显示“欢迎使用VB”，以下（ ）语句是正确的。
A．Text1.text=欢迎使用VB B. Text1=”欢迎使用VB”
C. Text1.text=’欢迎使用VB’ D.Text1.caption=”欢迎使用VB”
3.当运行程序时，系统自动执行启动窗体的（ ）事件过程。
A. Load Ｂ. UnLoad C. Click Ｄ. GotFocus
4.下面( )是合法的字符常数。
A．ABC$ B. ABC C. ‘ABC’ D. ”ABC”
5.语句：Print ”Sqr(16)＝”；Sqr(16)的输出结果是( )。
A．Sqr(16)＝Sqr(16) B．”4”=4
C．Sqr(16)＝4 D．4=Sqr(16)
6.已知A$=”12345678”,则表达式Val(Left(A$,4)+M id(A$,4,2)) 的值为( )。
A．123445 B．123456 C．8 D．6
7.以下关系表达式中，其值为False的是( )。
A．”教师”<”学生” B．”ABC”<”AbC”
C．”BASIC”=Ucase(”basic”) D．”123”>”23”
8.对于语句If x=1 Then y=1,下列说法正确的是（ ）。
Ａ.x=1为赋值语句， Ｂ. x=1为关系表达式，y=1为赋值语句
Ｃ.x=1和y=1均为关系表达式 Ｄ. x=1和y=1均为赋值语句
9. 下列循环语句能正常结束循环的是（ ）。
A. i=10 B. i=5
Do Do
i=i-1 i=i+1
Loop Until i<0 Loop Until i<0
C. i=1 D. i=6
Do Do
i=i+2 i=i-2
Loop Until i=10 Loop Until i=1
10. 在Visual Basic中，如果一个变量未作类型声明而直接使用，则该变量的数据类型是( )。
A.字符型 B.数值型 C.变体型 D.可以是任何类型
11．用于将屏幕上控件分组的控件是( )。
A．列表框 B．组合框 C．标签 D.框架
12. 一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句Public X As Integer，在Model1中有语句Public Y As Integer。则以下叙述中正确的是（ ）。
A．变量X、Y的作用域相同
B．Y的作用域是Model1
C．在Form1中可以直接使用X
D．在Form2中可以直接使用X和Y
13. 如果在窗体上添加一个通用对话框控件DBT，那么语句“DBT.Action=4”的作用是（ ）。
A．显示“打开文件” 对话框
B．显示“保存文件”对话框
C．显示“字体”对话框
D．显示“打印”对话框
14. 以下语句正确的是( )。
A.CommonDialog.Filter=="All Files|*.*|Pictures(*.bmp)|*.bmp"
B.CommonDialog.Filter=All Files |*.*| Pictures(*.bmp)|*.bmp
C.CommonDialog.Fliter="All FileS"|"*.*"|"Pictures(*.bnlp)|"*.bmp"
D.CommonDialog.Filter={ All Files |*.*| Pictures(*.bmp)|*.bmp}
15. 当用户对滚动条施以（ ）动作时，便触发了滚动条的Scroll事件。
A、单击滚动条的左右按钮时 B、双击滚动条的左右按钮时
C、单击滚动条的空白处时 D、拖动滚动条的滑块时
16. 一个二维数组可以存放一个矩阵。在程序开始有语句Option Base 0，则下面定义的数组中正好可以存放一个4×3矩阵（即只有12个元素）的是（ ）。
A. Dim a（-2 To 0,2）As Integer B.Dim a（3，2）As Integer
C. Dim a（4,3）AS Integer D.Dim a（3 to 4）AS Integer
17. 要从磁盘上写一个文件名为“c:\t1.txt”的顺序文件，下列（ ）正确。
A.f=”c:\t1.txt” B.f=”c:\t1.txt”
Open “f” For Input As #1 Open f For Input As #1
C.Open ”c:\t1.txt”For output As #1 D.Open c:\t1.txt For input As #1
18. 在窗体上面一个名称为Command1的命令按钮和三个名称分别为Text1、Text2、Text3的文本框，然后编写如下代码：
运行程序，连续三次单击命令按钮后，则三个文本框显示的内容分别是( )
A. 10 10 10 B. 30 30 30 C. 30 30 10 D. 10 30 30
19.在窗体上有一个文本框，然后编写如下的事件过程：
Private Sub Text1_KeyPress(KeyAscii as Integer)
…………
End Sub
若焦点位于文本框中，则能够触发KeyPress事件的操作是( )。
A．鼠标滑过文本框 B．按下键盘上的某个键
C．单击鼠标 D．双击鼠标
20. 当组合框的Style属性设置为( )时，组合框为下拉式列表框。
A． 3 B. 2 C. 1 D. 0
21. 下列关于菜单的说法，错误的是( )。
A．在程序运行过程中可以增加或减少菜单项
B．弹出式菜单在菜单编辑器中设计
C．每一个菜单项都是一个控件
D．如果把一个菜单项的Enabled属性设置为False，则可删除该菜单
22. 在窗体的通用声明段自定义了数据类型Students，下列( )定义方式是正确的。
A．Type Student B．Type Student
Name As String Name As String*10
No as Integer No as Integer
End Type End Type
C．Type Student D．Type Student
Name As String*10 Name String*10
No as Integer No Integer
End Student End Type
23. 设在窗体上有一个名称为Combo1的组合框，含有5个项目，要删除最后一项，正确的语句是
A.Combol.RemoveItem Combol.Text B. Combol.RemoveItem Combol.ListCount
C. Combol.RemoveItem 4 D. Combol.RemoveItem 5
24. 指令“Circle（1000，1000），500，，，，2”将绘制( )。
A．画圆 B．椭圆 C．扇形 D．圆弧
25. 在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程：
程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是( )。
A. 3 B. 4 C. 5 D. 6
26.下列对象中不能做为容器的控件是( )。
A．Image控件 B．窗体 C．PictureBox控件 D． Frame控件
27.为了建立一个随机文件，其中每一条
记录
混凝土 养护记录下载土方回填监理旁站记录免费下载集备记录下载集备记录下载集备记录下载
由多个不同数据类型的数据项组成，应使用( )
A．记录类型 B．数组 C．字符串类型 D．变体类型
28.要想从子过程调用后返回两个结果，下面子过程语句说明合法的是( )。
A．Sub f1(n%,m%) B．Sub f1(n%,ByVal m%)
C．Sub f1(ByVal n%,ByVal m%) D．Sub f1(ByVal n%, m%)
29.在窗体上画线时，线的宽度由( )属性决定。
A．Scale方法 B．ScaleMode属性
C．Drawstyle属性 D．DrawWidth
30. 假定有以下程序段
则语句Print i*j执行的次数是( )。
A．15 B. 16 C. 17 D. 18
二、填空题（每空2分，共20分）
1.在过程定义中出现的变量名叫做___[1]___参数，而在调用过程时传送给过程的常数、变量、表达式或数组叫做___[2]___ 参数。
2．对象的三要素包括属性、 [3] 和 [4] 。
3．窗体上有一命令按钮，程序运行时，决定该按钮是否可用应设置的属性是 [ 5 ] ，决定该按钮是否显示应设置的属性是 [ 6 ] 。
4．为菜单建立热键的方法是在菜单标题的某个字符前加上字符 [ 7 ] 。
5．为了显示一个窗体，所使用的方法为___[8]__。
6．表达式123＋23 mod 10 \ 7＋Asc（“A”）的值是 [9] 。
7．在默认情况下，如下数组声明语句中 Dim s(4，4) As Integer，第二个数组元素的引用形式是 [10 ] 。
三、写出下列程序的正确运行结果（每题5分，共10分）
1．Private Sub Command1_Click( )
Print Int(-4.5)+Round(-4.5)
Print Lcase(“AAbbEE”)
Print Len(“vb程序设计语言”)
Print Mid(“计算机科学与技术”,4,2)
Print Trim(“abc ”)+“def”
End Sub
2． Private Sub Form_Click( )
Dim x As Integer,n as integer
x=1： n=0
Do While x<28
x=x*3
n=n+1
Loop
Print “x=”；x，“n=”；n
End Sub
四、程序设计题（10分）
输入任意两个正整数m和n，求这两个数的最大公约数（单击窗体执行程序）。
答案
一、 选择题（每题2分，共60分）
CBADC ADBAC DCCAD BCCBB DBCBD AAADA
二、填空题（每空2分，共20分）
【1】形式参数 【2】 实际参数 【3】事件 【4】方法
【5】Enabled 【6】Visible 【7】& 【8】Show
【9】188 【10】s (1,1)
三、写出程序的正确运行结果（每题5分，共10分）
1. －9 aabbee 8科学abcdef
2. x=81 n=4
四、编程题（10分）
Private sub Form_click( )
Dim m%，n％，t％，r%
m=Inputbox(“输入m”) (1’)
n= Inputbox(“输入m”) (1’)
If m0 (1’)
m=n (1’)
n=r (1’)
r=m mod n (1’)
Loop
Print “最大公约数为：”；n (1’)
End Sub
模拟试题七
1、 选择题（每题2分，计60分）
(1)与传统的程序设计语言相比，Visual Basic最终突出的特点是( )
A)结构化程序设计 B)程序开发环境
C)事件驱动编制程序 D)程序调试技术
(2)计时器控件的（ ）属性用于设置Timer事件发生的时间间隔。
A) Stretch B) Interval C) Value D) Length
(3)确定一个控件在窗体上的位置的属性是( )
A)Width或Height B)Width和Height
C)Top或Left D)Top和Left
(4)标签对象的名称（Name属性）为Label1，则把标签的标题设置为“演示示例”的语句是( )
A)Label1 = “演示示例” B)Caption =“演示示例”
C)Label1.Text=“演示示例” D)Label1.Name =“演示示例”
(5)可获得当前系统日期的函数是（ ）
A)Date( ) B)Time( ) C)IsDate( ) D)Year( )
(6)Inputbox函数返回值的类型是（ ）。
A) 整型数值 B) 字符串 C)变体 D)数值或字符串
(7)设a=6，则执行 x=IIf(a<5,-1,0)后，x 的值为( ) 。
A) 5 B) 6 C) 0 D) -1
(8)产生[30，80]之间的随机整数的Visual Basic表达式是（ ）。
A) Int(Rnd*50)+30 B) Int(Rnd*31)+50
C) Int(Rnd*51)+30 D) Int(Rnd*30)+50
(9)执行语句s=Len(Mid("VisualBasic",1,6))后，s的值是( )。
A) Visual B) Basic C) 6 D) 11
(10)下面（ ）是合法的变量名。
A) dim B) A+B C) _123 D) X_t6
(11)设a=1，b=2，c=3，d=4，下列表达式的值是( )。
a>b and c<=d or 2*a>c
A)True B)False C) -1 D）1
(12)VB提供了结构化程序设计的三种基本结构，三种基本结构是（ ）。
A）递归结构、选择结构、循环结构
B）选择结构、过程结构、顺序结构
C）过程结构、输入、输出结构、转向结构
D）选择结构、循环结构、顺序结构
(13)以下语句的输出结果是 （ ）
a = Sqr(3)
Print Format(a, "$$ ####.###")
A)$1.732 B)$$1.732 C)$1732 D)$$0001.732
(14)在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程
Private Sub Command1_Click()
Text1.Text = "Visual"
Text1 = "Basic"
Text1 = "Program"
End Sub
程序运行后，如果单击命令按钮，则在文本框中显示的是( )
A) 出错 B) Visual C) Basic D) Program
(15)表达式5+10 mod 10 \ 9 / 3 +2 ^2 的值是（ ）
A) 8 B) 9 C) 10 D) 11
(16)在窗体上画一个命令按钮，然后编写如下事件过程：
Print Sub Command1_Click()
a = InputBox("Enter the First integer")
b = InputBox("Enter the Second integer")
print b + a
End Sub
程序运行后，单击命令按钮，先后在两个输入对话框分别输入123和456，则输出结果是（ ）
A)579 B)123 C)456123 D)123456
(17)决定窗体标题条显示内容的属性是
A)Caption B)Name C)Text D)BackStyle
(18)文本框获得焦点的方法是( )。
A)Change B)GotFocus C)SetFocus D)LostFocus
(19)假定在图片框Picture1中装入了一个图形，为了清除改图形（注意，清除图形，不是删除图片框），应采用的正确方法是( )。
A)选择图片框，然后按Del键
B)执行语句Picture1. Picture=LoadPicture（" "）
C)执行语句Picture. Picture=＂＂
D)选择图片框，在属性窗口中选择Picture属性条，然后按回车键
(20)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
a$="Program"
Print String(3,a$)
End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是( )。
A）Pro B) ram C) gra D) PPP
(21)用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是A）List B）ListIndex C）Text D）ListCount
(22)下列表达式的值为2123的是（ ）。
A) Val("123asd") & 2000 B) Val("123") + 2000
C) Str(123) & "2000" D)Str(123)+"2000"
(23)假定有如下程序段
For i=1 to 5
For j=5 to 1 step -1
Print i*j
Next j
Next i
则语句print i*j的执行次数是（ ）。
A）15 B）20 C）25 D）30
(24)在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程：
Private sub command1_click()
x=0
Do while x<50
x=(x+2)*(x+3)
n=n+1
loop
text1.text=str(n)
text2.text=str(x)
End sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为（ ）。
A）1和0 B）2和72 C）3和50 D）4和168
(25)用下面的语句所定义的数组的元素个数是（ ）。
Dim arr(3 to 6,-2 to 2)
A)20 B)12 C)15 D)24
(26) 在用菜单编辑器设计菜单时，必须输入的项有（ ）。
A)快捷键 B)索引 C)热键 D)名称
(27) 在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click()
dim a
a=array(1,2,3,4)
j=1
for i=4 to 1 step -1
s=s+a(i)*j
j=j*10
nexti
print s
End Sub
程序运行后，如果单击命令按钮，其输出结果是（ ）。
A）4321 B）12 C）34 D）1234
(28) 为了使一个窗体从屏幕上消失但仍在内存中，所使用的方法或语句为
A）show B)hide C)load D)unload
(29)在用open语句打开文件时，如果省略“For方式”，则打开的文件的存取方式是（ ）。
A)顺序输入方式 B)顺序输出方式
C)随机存取方式 D)二进制方式
(30)在窗体上画一个命令按钮，名称为Command1，然后编写如下程序：
Private Sub Command1_Click()
Dim t1 as integer
Static t2
t1=t1+1
t2=t2+1
End Sub
三次单击命令按钮后，t1,t2的值分别为（ ）：
A) 1 1
B) 3 3 C) 1 3 D) 3 1
2、 填空题（每题2分,计20分）
1．在Visual Basic中可以建立（ ）菜单和（ ）菜单。
2．建立打开文件、颜色对话框所使用的方法分别为（ ）和（ ）。如果使用action属性，则应把该属性的值分别设置为（ ）和（ ）。
3．数学表达式
的VB算术表达式为（ ）。
4．表达式Ucase(right(“abcdefgh”,5)的值是( )。
5．以下程序的功能是：从键盘上输入学生的考试分数，统计并输出最高分数和最低分，当输入负数时结束输入，输出结果。请填空。
Private Sub Form_click()
Dim x As Single, amax As Single, amin As Single
x = InputBox("enter a score")
amax = x
amin = x
Do While x > 0
If ( ) Then
amax = x
End If
If ( ) Then
amin = x
End If
x = InputBox("enter a score")
Loop
Print "max="; amax, "min="; amin
End Sub
三、写出下面程序的运行结果（10分）
1. Private Sub Command1_Click()
x = 0
n = InputBox("")
For i = 1 To n
For j = 1 To i
x = x + 1
Next j
Next i
Print x
End Sub
程序运行后，单击命令按钮，如果输入5，则在窗体上显示的内容是:
2.
Option base 1
Private sub subp(b() As Integer)
for i=1 to 4
b(i)=2*i
next i
End Function
Private Sub Command1_Click()
Dim a() as integer
a(1)=5
a(2)=6
a(3)=7
a(4)=8
subp a()
for i= 1 to 4
print a(i)
next i
End Sub
单击命令按钮后，程序的运行结果为：
四、程序设计（10分）
我国现有人口约13亿，设年增长率为0.8%，编写程序，计算多少年后增加到20亿。
答案
1、 选择题
CBDAA BCCCD BDBDC CACBD CBCBA DDBCC
2、 填空题
1． 下拉式 弹出式
2． Showopen showcolor 1 3
3． Sqr(x)/(2*a)+3^2-3*x
4． DEFGH
5． amaxx
3、 写出下程序的运行结果
1． 15 2. 2
4
6
8
4、 程序设计
Private Sub Form_click()
Dim p As Single, r As Single, n As Integer
n = 0: p = 13: r = 0.008
Do While p <= 20
p = p * 1.01
n = n + 1
Loop
Print n; "年后增加至"; p; "亿"
End Sub
模拟试题八
一、选择题（每题2分，计60分）
(1) Visual Basic是可视化的、面向( )采用事件驱动方式的结构化高级程序设计语言。
A) 过程 B) 对象 C) 事件 D) 任务
(2) 退出For循环可使用的语句为（ ）。
A) Exit For B) Exit Do C) End For D) End Do
(3) 确定一个窗体或控件的大小的属性是( )。
A)Width或Height B)Width和Height
C)Top或Left D)Top和Left
(4) 标签对象的名称（Name属性）为Label1，则把标签的标题设置为“演示示例”的语句是( )。
A) Label1 = "演示示例" B)Caption = "演示示例"
C) Label1.Text = "演示示例" D) Label1.Name = "演示示例"
(5)以下不属于键盘事件的是（ ）。
A) KeyDown B) KeyUp C) Unload D) KeyPress
(6) Msgbox函数返回值的类型是（ ）。
A) 整型数值 B) 字符串 C)变体 D)数值或字符串
(7) 设a=6，则执行 x=IIf(a>5,-1,0)后，x 的值为( ) 。
A) 5 B) 6 C) 0 D) -1
(8) 产生[1，100]之间的随机整数的Visual Basic表达式是（ ）。
A) Int(Rnd*100)+1 B) Int(Rnd*1)+100
C) Int(Rnd*101)+1 D) Int(Rnd)+100
(9) 执行语句s=right("VisualBasic",5)后，s的值是( )。
A) Visual B) Basic C) 6 D) 11
(10) 下面（ ）是合法的变量名。
A) dim B) A-1 C) _123 D) t_t6
(11) 设a=1，b=2，c=3，d=4，下列表达式的值是( )。
NOT a<= c OR 4*c=b^2 AND b< >a+c
A）-1 B)1 C）True D) False
(12) \、/、mod、*等4个算术运算符中，优先级最低的是（ ）。
A)\ B)/ C)mod D)*
(13) 以下程序段的输出结果是 （ ）。
a = Sqr(3)
b = Sqr(2)
print a>b
A）-1 B）0 C）False D）True
(14) 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程
Private Sub Command1_Click()
Text1.Text = "Visual"
Text1 = "Basic"
Text1 = "Program"
End Sub
程序运行后，如果单击命令按钮，则在文本框中显示的是( )。
A) 出错 B) Visual C) Basic D) Program
(15) Print Format$(32548.5, "000,000.00")的输出结果为（ ）。
A)32548.5 B)32,548.5 C)032,548.50 D)32,548.50
(16) 在窗体上画一个命令按钮，然后编写如下事件过程：
Print Sub Command1_Click()
a = InputBox("Enter the First integer")
b = InputBox("Enter the Second integer")
print b + a
End Sub
程序运行后，单击命令按钮，先后在两个输入对话框分别输入456和123，则输出结果是（ ）。
A) 579 B)123 C)456123 D)123456
(17)为了使标签覆盖背景，应把BackStyle属性设置为( )。
A)0 B)1 C)True D)False
(18) 删除列表框中指定项目的方法为
A）Move B）Remove C）Clear D）RemoveItem
(19)假定在图片框Picture1中装入了一个图形，为了清除改图形（注意，清除图形，不是删除图片框），应采用的正确方法是
A)选择图片框，然后按Del键
B)执行语句Picture1. Picture=LoadPicture（" "）
C)执行语句Picture. Picture=＂＂
D)选择图片框，在属性窗口中选择Picture属性条，然后按回车键
(20) 以下关于函数过程的叙述中，正确的是
A) 函数过程形参的类型与函数返回值的类型没有关系
B) 在函数过程中，过程的返回值可以有多个
C) 当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递
D) 如果不指明函数过程参数的类型，则该参数没有数据类型
(21) 如果列表框（List1）中没有被选定的项目，则执行List1.RemoveItem List1.ListIndex语句的结果是（ ）
A)移去第一项 B)移去最后一项
C)移去最后加入列表一项 D)以上都不对
(22) 下列表达式的值为2123的是（ ）
A) Val("123asd") & 2000 B) Val("123") + 2000
C) Str(123) & "2000" D)Str(123)+"2000"
(23) 以下程序段的输出结果为：
x=1
y=1
Do until y>4
x=x*y
y=y+1
Loop
Print x
A）1 B）2 C）6 D）24
(24)阅读下面的程序段：
For i = 1 To 3
For j = 1 To i
a = a + 1
Next j
Next i
执行上面的3重循环后，a的值为
A）3 B）6 C）9 D）12
(25)用下面的语句所定义的数组的元素个数是（ ）
Dim arr(4 to 6,-2 to 2)
A)20 B)12 C)15 D)24
(26) 在用菜单编辑器设计菜单时，必须输入的项有（）。
A)快捷键 B)索引 C)热键 D)名称
(27) 在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click()
dim a
a=array(1,2,3,4)
j=1
for i=1 to 4
s=s+a(i)*j
j=j*10
nexti
print s
End Sub
程序运行后，如果单击命令按钮，其输出结果是（ ）
A）4321 B）12 C）34 D）1234
(28) 以下叙述中错误的是( )
A）用Shell函数可以调用能够在Windows下运行的应用程序
B）用Shell函数可以调用可执行文件，也可以调用Visual Basic的内部函数
C）调用Shell函数的格式应为：<变量名>=Shell (……)
D）用Shell函数不能执行DOS命令
(29) 表示滚动条控件取值范围最大值的属性是（）。
A）Max B）LargeChange C）Value D）Max-Min
(30)在窗体上画一个命令按钮，名称为Command1，然后编写如下程序：
Private Sub Command1_Click()
Dim t1 as integer
Static t2
t1=t1+1
t2=t2+1
End Sub
三次单击命令按钮后，t1,t2的值分别为（）：
A) 1 1
B) 3 3 C) 1 3 D) 3 1
3、 填空题（每题2分,计20分）
1．工程文件的扩展名是（ ）。
2．在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为Drive1、Dir1和File1，为了使它们同步操作，必须触发（ ）事件和（ ）事件，在这两个事件中执行的语句名分别为（ ）和（ ）。
3．语句 Print " 25 + 32 = "；25+32的输出结果是( )。
4．执行以下语句后，输出的结果是(____)、(_____)。
s$="ABCDEFGHIJK"
print left (s$,4)
print right (s$,4)
5．以下程序的功能是：从键盘上输入学生的考试分数，统计并输出最高分数和最低分，当输入负数时结束输入，输出结果。请填空。
Private Sub Form_click()
Dim x As Single, amax As Single, amin As Single
x = InputBox("enter a score")
amax = x
amin = x
Do While x > 0
If ( ) Then
amax = x
End If
If ( ) Then
amin = x
End If
x = InputBox("enter a score")
Loop
Print "max="; amax, "min="; amin
End Sub
三、写出下面程序的运行结果（10分）
1. Private Sub Command1_Click()
a = 0
For i = 1 To 2
For j = 1 To 4
if j mod 2 <>0 then
a = a + 1
end if
a = a + 1
Next j
Next i
Print a
End Sub
程序运行后，单击命令按钮，输出结果为:
2.
Function F(a As Integer)
b = 0
Static c
b = b+1
c = c+1
f = a+b+c
End Function
Private Sub Commandl_Click ()
Dim a As Integer
a =2
For i =1 To 3
Print F(a)
Next i
End Sub
单击命令按钮后，程序的运行结果为：
四、程序设计（10分）
编写程序计算1+5+7+…+99。
答案
一、 选择题
BABAC ADABD DCDDC DBDBA DBDBC DABDC
二、填空题
1、 .vbp
2、Dir1_change Drive1_change File1.Path=Dir1.Path Dir1.Path=Drive1.Drive
3、25+32=57 4、ABCD HIJK
5、amaxx
三、写出下程序的运行结果
1． 12 2. 4
5
6
四、程序设计
Private Sub Form_Click()
Dim s as integer,i as integer
S=0
For i=1 to 99 step 2
S=s+i
Next i
Print s
End Sub
X2+3
x>=1
x+1
f(x)=
f(x)=
x<1
x<1
X2+3
x>=1
x+1
f(x)=
x+1
x>=1
X2+3
x<1
PAGE
1
_1337714086.unknown
_1369339632.unknown
浙公网安备 33021202002483