Part 1
=====基本概念填空题=====
1. VB中若要产生一消息框，可用MsgBox函数来实现。
2. 常量是指在程序运行过程中，其值不能改变的量。
3. 运行下面的程序，就会出现无限循环，按_Ctrl+Break____键可以终止程序运行。
Private Sub Form_Click ( )
Dim i As Integer
Do While i<10
i =i * 20
Loop
End Sub
4．整数类型数据分别包括整型和长整型数据。
5. 在VB集成开发环境中，运行应用程序的方法有三种：一是 (单击“运行”菜单下的启动；二是单击工具栏上的启动按钮_；三是按F5键
6. 在VB中若要让某对对象获取焦点，则可通过Setfocus 方法来实现。
7．列表框（ListBox控件）显示 项目列表 ，用户可从中选择一个或多个项目。
8.有一个充满氢气的球，如果人不小心松开手抓的引线，它就会飞走；如果用针刺穿它，它则会爆破。此处红一种属性，飞是一种_方法__。针刺是一种事件，爆破是一种方法。
9.可使用列表框的_AddItem_方法向列表框中增加一个项目。
10．框架（Frame控件）可以用来对其它控件进行分组，以便于用户识别，主要用于为单选按钮分组。
11. 在VB中，用来描述对象外部特征的量称之为对象的属性。
12. 为使某窗口中的命令按钮“取消(C)”具有如下特性：按“Alt＋C”键或按 “ESC” 键，均可代替用鼠标单击该按钮的操作，应设置该按钮的Caption属性值为取消(&C)，并且设置其Cancel属性值为True 。
13. 关系式-5<=X<=5所对应的表达式是X>=-5 and X<=5
14. 在过程内用Static 声明的变量为静态变量，在执行一个过程结束时，过程中所用到的 Static变量的值会保留，下次再调用此过程时，变量的初值是上次调用结束时被保留的值。
15. 在模块文件中的声明部分用Global或public关键字声明的变量为全局变量。
16. 在模块文件中的声明部分用Dim或private定义的变量为模块级变量。
17．计时器控件通过定期激活Timer事件，使得Timer控件可以每隔一段时间就执行一次Timer事件中的代码。
18．要获得滚动条的当前位置，可以访问通过 value 属性来实现。
19．关闭正在运行的VB窗口将自动触发的事件是Unload。
shell程序的编写流程20. 列表框的_Sorted_属性决定列表框中项目在程序运行期间是否按字母顺序排列，如果该属性为True，则按字母顺序排列显示，False则按项目加入的先后顺序排列显示。
21.设x=2,y=4,a=4,b=6,表达式 （a>x Xor b<x） OR x<y IMP y<b 的结果为True。
22．a和b中有仅只有一个不为1，相应的Visual Basic逻辑表达式为a<>1 xor b<>1。
23．把条件为1£ x £ 5 写成VB表达式为: x>=1 and x<=5。
24. 语句Line(1000,1000)-Step(2000,1500),vbRed,BF的含义是：在窗体上绘制以角点为（2000，2000）和（4000，3500）的红实心的矩形。
25．当x=2时，语句if x=2 then Print x=2 的结果值是 True。
26．声明单精度常量g(重力加速度)代表9.8可写成：const g=9.8。
27．欲使在自己设计VB程序运行过程中，不中止本程序的运行，同时又可调用系统中已有的应用程序c:\,可在程序代码窗口必要的地方添加语句：shell(“c:\”)。
Part 2
=====程序填空题=====
1.从计算机输入三个数,出中间数。
Private Sub FindMidNum( )
X=INPUTBOX(“PLEASE INPUT THE FIRST NUMBER”)
Y=INPUTBOX(“PLEASE INPUT THE SECOND NUMBER)
Z=INPUTBOX(“PLESSE INPUT THE THIRD NUMBER)
IF（ X<Y ）THEN
A=X
X=Y
Y=A
ENDIF
IF （Y>=Z）THEN
PRINT Y
ELSEIF （ X>=Z ） THEN
PRINT Z
ELSE
PRINT X
ENDIF
End Sub
2. 在下列程序的（）内写上适当的内容，使能输出如下图形。
*
* *
* * *
* * * *
* * * * *
* * * * * *
程序如下：
Private Sub Command1_Click()
For i=1 to （ 6 ）
For j=1 to （ i-6 ）
Print （ “*” ）
Next j
（Print String(i, "*") ）
Next i
End Sub
3. 在窗体上画一个名称为Command1的命令按钮，再画两个名城分别为Label1、Label2的标签，然后编写如下程序代码：
Private x As Integer
Private Sub Command1_Click()
x=5: y=3
Call proc(x,y)
Label1.Caption=x
Label2.Caption=y
End Sub
Private Sub proc(Byval a As Integer,Byval b As Integer)
x=a*a
y=a-b
End Sub
程序运行后，单击命令按钮，则两个标签中显示的内容分别是_25_, _3_。
4. 在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：
Private Sub Form_Click()
="VB程序设计"
End Sub
Private Sub Text1_Change()
Picture1.Print"VB Programming"
End Sub
程序运行后，单击窗体，在文本框显示的内容是 VB程序设计 ，而在图片框显示的内容是__VB Programming___。
5. 下列程序输出的值是多少？
Private Sub Command1_Click()
s = 0
For i = 9 To 42 Step 11
s = s + i
Next i
If i > 50 Then
s = s + i
Else
s = s - i
End If
Print s
End Sub
结果是：__155__。
6. 设有如下程序：
Private Sub Form_Click()
Dim a As Integer,s As Integer
n=8
s=0
Do
s=s+n
n=n-1
Loop While n>0
Print s
End Sub
以上程序的功能是计算1到8的累加。程序运行后，单击窗体，输出结果为_36_。
7. 阅读下面的程序并填空：
Option Base1
Private Sub Command1_Click()
Dim a
a=Array(28,6,134,249,19,76,84,98,23,43)
For i = _1 to 9__
k=i
For j = i+1 to _10_
If a(i)<a(j) then _ k=j__
Next j
t=a(i)
a(i)=a(k)
a(k)=t
Next i
For i = 1 to 10
Print a(i)
Next i
End Sub
8. 设有如下程序：用 Array 函数建立一个含有8个元素的数组，然后查并输出该数组中各元素的最小值。
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= arr1(1)
For i=2 To 8
If arr1(i)<Min Then min=arr1(i)
Next i
Print "最小值是："; min
End Sub
9. 在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：以下程序的功能是：把磁盘文件 的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件 。
Private Sub Form_Click()
Open"d:\"For Input As #1
Do While Not eof(1)
Line Input #1,aspect$
whole$=whole$+aspect$+Chr$(13)+Chr$(10)
Loop
Text1.Text=whole$
Close #1
Open "d:\"For Output As #1
Print #1,
Close #1
End Sub
10. 运行下面程序，单击窗体后在窗体上显示的内容是_10 ,_220_;
若将程序中的A语句和B语句调换位置，再次执行程序，单击窗体后在窗体上显示的内容是__10 , 120___。
private Sub Form_Click()
Dim a As Integer, b As Integer
a = 0: b = 0
Do While a <=8
a = a + 2 'A
b = b + a * a 'B
Loop
Print a, b
End Sub
11．用随机函数产生10个100～500的整数，其表达可为：for I=1 to 10
a(i)=100+int(400*rnd)
next I。
12. Static Private Sub cmdSum_Click()
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论