一份VB作业
《 VB程序设计 》课程毕业前补考复习资料
（做到举一反三，触类旁通过）
（1）变量的命名规则（判断变量名合法性），算术运算符的优先级顺序。
（2）将文本框控件的Locked、Enabled、Underline、Visible属性设置为False，各代表什么意义?
（3）滚动条控件的LargeChange、Change、SmallChange、Value属性的作用?如用户单击滚动箭头时Value属性值的增量由哪个属性决定?
（4）当需要局部变量在整个程序运行中值一直存在，则必需用_______关键字来声明。
（5）变量命名的规则?分析下面变量不合法原因是什么?
X*yz B、123abc C、integer D、X-Y
（6）以下程序是怎样运行的?
a=2
do
a=a+2
loop until a=100
? a
会给出什么结果?如第一行改为a=1则结果怎样?
（7）判断整型变量m能否被n整除 VB表达式为 .
（8）复习过程调用的参数传递方式，若某个子过程声明为 Sub aa ( n as integer )，则以下调用语句哪个可以按地址传递。Call aa( 5 )、Call aa( n + 1 )、Call aa( n )、Call aa( I – 1 )
（9）分析下面子过程说明的含义。调用时参数传递都可以实现什么样的传递方式？哪些可以从子过程调用后返回两个结果？
A、Sub f(byval a%, byval b%) B、Sub f(a%, b%)
C、Sub f(byval a%, b%) D、Sub f(a%, byval b%)
（10）通用对话框控件的FileName属性表示什么含义？与文件列表框控件的同名属性有没有区别？
（11）通用对话框的Action、Fiterlndex 、Font、Filter属性各表示什么含义？
（12）文本框的SetFocus 、KeyPress、GotFocus、LostFocus各表示什么含义？
（13）滚动条内拖动滚动块时会触发什么事件？ 放掉滚动块时会触发什么事件？
（14）假定已定义了一个过程Sub Add(a as single, b as single), 以下哪个调用语句合法？
Add 12, 12、Call Add [12, 12]、Call Add x, y、Call Add (12, 12, x)
（15）列表框（List1）的ListCount属性什么含义？如何引用列表框中的最后一个数据项？
1、分析以下程序，并写出程序运行后输出结果
Function Min(x as Integer, y as Integer) as Integer
Min=IIf(x<y, x, y)
End function
Private sub Command1_click()
Dim a as Integer, b as Integer
Print Min(34, 56)
End sub
2、写出下列程序所实现的功能
Private Sub Command1_Click()
For i=1 to 20
X=int( Rnd*90+10)
If x mod 3 =0 then
Print x
S=S+x
End if
Next I
Print s
End Sub
3、以下程序的功能是什么？
Private sub Command1_Click()
Dim x as Integer
X=val(Right(text1.text,2))
If x mod 2=0 then
Label1.caption=”偶数”
Else
Label1.caption=”奇数”
End if
Text1.setfocus
End sub
以下程序的功能什么？
Private Sub Text1_keypress(keyAsicii As integer)
If KeyAscii<48 or KeyAscii>57 then
KeyAscii=0
End if
End sub
运行时在文本框中输入2008后单击命令按钮，程序运行结果是什么？
4、在窗体上有一个名称为Commandl的命令按钮，然后编写如下程序：
Private Sub Commandl_Click()
Static Y As Integer
Y=1
Y=Y+1
X=1+X
Print X，Y
End Sub
程序运行时，三次单击命令按钮Commandl后，试写出窗体上的输出结果。
程序第二行中再增加一行Static X As Integer，程序运行结果是什么？
5、在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：
Private Sub Command1_Click()
For I = 1 To 4
For J = 0 To I
Print Chr$(97 + I);
Next J
Next I
End Sub
程序运行后，单击命令按钮，写出窗体上显示的内容。
若要输出大写字母形式，程序如何修改？
6、阅读以下程序，分析程序实现的功能并写出输出结果。
Option Base 1
Private Sub Command1_Click()
Dim Arr1, m as Integer
Arr1=Array(1, 4, 6, 4, 8, 5, 8, 3)
m=Arr1(1)
For i=1 to 8
Print Arr1(i);
If Arr1(i)>m Then
m=Arr1(i)
End if
Next I
Print m
End Sub
7、在窗体上画一个命令按钮，然后编写如下程序：
Function M(x as Integer, y as Integer) as Integer
M=IIf(x>=y, x, y)
Print x, y
End Function
Private Sub Command1_Click()
Dim a as Integer, b as Integer
a=Val（InputBox（“a=”））
b= Val（InputBox（“b=”））
Print M(a, b)
End sub
程序运行后，单击命令按钮，然后输入56、34，分析程序运行过程并写出输出结果。
8、分析以下程序的运行过程，并写出输出结果。
Sub sub1(a() as Integer)
For i=1 to 3
a(i)=3*i
Next I
End sub
Private Sub Command1_Click()
Dim a(1 to 3) as integer
For i=1 to 3
a(i)=i
Next i
Call sub1(a)
For i=1 to 3
Print a(i);
Next i
End sub
程序设计
1、编写一个计算s=1+2+…+n的函数过程。
2、编写程序，产生50个随机二位整数，存入数组中，计算总和，将数组元素按升序排序，并按每行10个打印输出。
3、编写计算二个整数的最大公约数和最小公倍数，并把结果在窗体中打印输出的程序。
补充：回答给分，多答多分！！
