第一次作业
Private Sub Command1_Click()
Text1.Text = "欢迎你学习VB程序设计"
Text1.ForeColor = vbGreen
Text1.Font = "宋体"
Text1.FontSize = 25
Text1.FontItalic = True
Text1.FontBold = True
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Click()
Text1.ForeColor = vbRed
Text1.Font = "隶书"
Text1.Text = "佛山大学理学院"
End Sub
第二次作业(服务员密码)
1、请建立一个工程（ zy02.vbp),含有1个窗体（zy02.frm),该窗体有两个标签，两个命令按钮（设置成不同的背景色），一个文本框。要求如下：1）当程序启动运行时，命令按钮不可用（变灰色），当在文本框中输入正确密码时，显示出来的是星号，（2）…
3）点击结帐按钮后，窗体所有控件消失，仅显示出标签“谢谢你，再见！”这样的服务用语。Private Sub Command1_Click()
Text1.Visible = False
Label2.Visible = True
Label2.Caption = "你好，你需要什么"
Command2.Enabled = True
End Sub
Private Sub Command2_Click()
Command1.Visible = False
Command2.Visible = False
Label1.Visible = False
Label2.Caption = "谢谢你，再见！"
End Sub
Private Sub Form_Load()
Label2.Visible = False
Command1.Enabled = False
Command2.Enabled = False
End Sub
Private Sub Text1_Change()
If Text1.Text = "12345" Then Command1.Enabled = True
Text1.PasswordChar = "*"
End Sub
第三次
建立一个工程(zy03.vbp),含有一个窗体（zy03.frm）。请在该窗体上设计两个文本框，三个命令按钮，标题分别是减运算和除运算，退出，如图。请编写适当的程序，根据两个文本框中输入的数据（整型数据）分别进行减运算和除运算，并将运算结果（注意：除运算结果采用浮点数）用标签控件显示出来。特别要求：总是用两个文本框中输入的大数据做被减数或被除数。工程文件和窗体文件上传到你的操作题子目录下。
Private Sub Cd1_Click()
Dim X%, Y%, Z%
Dim P$
X = Int(Tt1.Text)
Y = Int(Tt2.Text)
If X > Y Then Z = X - Y Else Z = Y - X
P = Str(Z)
Ll2.Caption = P
End Sub
Private Sub Cd2_Click()
Dim X%, Y%, Z#
Dim P$
X = Int(Tt1.Text)
Y = Int(Tt2.Text)
If X > Y Then Z = X / Y Else Z = Y / X
P = Str(Z)
Ll2.Caption = P
End Sub
Private Sub Cd3_Click()
Visible = False
End Sub
第四次
1、建立一个工程(zy041.vbp),含有一个窗体（zy041.frm）。请在该窗体上设计三个文本框，两个命令按钮，标题分别是计算和与清除，如图。请编写两个命令按钮适当的程序，点击命令按钮计算，利用inputbox函数输入任意两个正整数，将这两个数显示在前两个文本框中，然后根据两个数的和进行判断，如果是奇数，将其放在第3个文本框中，如果是偶数，将其打印在窗体上，点击清除按钮后，清除文本框中的数和窗体上的数据。
Private Sub C1_Click()
Dim x As Integer, y As Integer, z As Integer, m As Integer
x = InputBox("请输入第一个正整数：", "数据输入")
y = InputBox("请输入第二个正整数：", "数据输入")
If x > 0 And y > 0 Then
T1.Text = x
T2.Text = y
z = x + y
m = z Mod 2
If m = 0 Then
Print z
Else
T3.Text = z
End If
Else
Print "输入的数据无效！请再次输入~"
End If
End Sub
Private Sub C2_Click()
T1.Text = ""
T2.Text = ""
T3.Text = ""
Cls
End Sub
Private Sub Form_Load()
T1.Enabled = False
T2.Enabled = False
T3.Enabled = False
End Sub
2建立一个工程(zy042.vbp),含有一个窗体（zy042.frm）。请在该窗体上设计两个文本框，。编写窗体的单击事件过程，使得在文本框中输入任意两个正整数后点击窗体，弹出一个消息框，如图。如果选择“是”，则求出两个数的商，选择“否”，则求出两个数的余数，然后将结果（商或余数）用标签方式显示在文本框下面，形式为您求得的结果是：（数字）
Private Sub Form_Click()
Dim x As Integer, y As Integer, z As Integer
x = Val(T1.Text)
y = Val(T2.Text)
msg1 = "你选择做除法吗？"
message = MsgBox(msg1, 16 + 4, "请选择")
If x > 0 And y > 0 Then
If message = 6 Then
z = x \ y
L2.Caption = "求得的结果是：" & z
Else
z = x Mod y
L2.Caption = "求得的结果是：" & z
End If
Else
Print "您输入的数据有误，请再输入！"
End If
End Sub
第五次
1、建立一个工程(zy051.vbp),含有一个窗体（zy051.frm）。请在该窗体上设计两个标签，两个文本框，一个命令按钮，如左下图。请编一帐号和密码检验程序，
要求：帐号不超过6位数字,有错,清除原内容再输入。
密码输入时（假如是ww199）在屏幕上以“*”代替; 若密码输入错，显示一个消息框，如右下图。选择“重试”按钮，清除原内容再输入，选择“取消”按钮，停止运行。
特别提示:
标签的borderstyle属性设置成1；帐号6位,只要将文本框的MaxLength设为6 ;
在文本框的LostFocus事件中，利用数字IsNumeric函数判断是否输入的是数字；如果密码输入不对，用MsgBox函数设置密码错对话框，根据返回值处理；
清除原内容再输入的处理技巧是：文本框内容清空，并用setfocus方法使光标回到文本框里。文本框的密码PassWordChar设为“*”
Private Sub Command1_Click()
Dim I%
If Text2.Text <> "sfxia" Then
I = MsgBox("密码错误", 53, "输入密码")
If I <> 4 Then
End
Else
Text2.Text = ""
Text2.SetFocus
End If
End If
Print "谢谢！"
End Sub
Private Sub Form_Load()
Text2.PasswordChar = "*"
Text2.Text = ""
Text1 = ""
End Sub
Private Sub Text1_Change()
If Not IsNumeric(Text1) Then
MsgBox "帐号有非数字字符错误"
Text1.Text = ""
Text1.SetFocus
End If
End Sub
2、建立一个工程(zy051.vbp),含有一个窗体（zy052.frm）。请在该窗体上设计三个横排的文本框，编写窗体的单击事件过程，使得在每个文本框中输入任意1个整数后点击窗体时，最大数在左边的文本框里。最小数在右边的文本框里，另一数在中间的文本框中。
Private Sub Form_Click()
Dim a, b, c, t As Single
a = Val(T1.Text)
b = Val(T2.Text)
c = Val(T3.Text)
If a < b Then
t = a
a = b
b = t
End If
If a < c Then
t = c
c = b
b = a
a = t
ElseIf b < c Then
t = c
c = b
b = t
End If
T1.Text = a
T2.Text = b
T3.Text = c
End Sub
3、在窗体上设置一个文本框，编写一个窗体单击事件过程，根据文本框中输入的学生成绩利用Print函数在窗体上打印一个文字评价，规则是：90~100分，优秀，80~90分，良好，70~80分，中等；60~70分，及格；20~60分，及格；其他情况，异常。文件名分别保存为zy053.vbp,和zy053.frm
Private Sub C1_Click()
T1.Text = ""
Cls
End Sub
Private Sub Form_Click()
Dim s, i As Integer
s = T1.Text
Select Case s
Case 90 To 100
Print "优秀"
Case 80 To 90
Print "良好"
Case 70 To 80
Print "中等"
Case 60 To 70
Print "合格"
Case 20 To 60
Print "不合格"
Case Else
Print "异常"
End Select
End Sub
第六次
1、建立一个工程(zy061.vbp),含有一个窗体（zy061.frm）。请在该窗体上设计一个图片框（其中放置一个小的图片），一个文本框。请编写程序来实现：当在文本框中输入任意字符（数字，字母或其他符号）后点击窗体，图片框中将显示输入字符的性质，如下图（要求：用case语句）。
Private Sub Form_Click()
Dim aw As String
P1.Cls
aw = T1.Text
Select Case aw
Case "0" To "9"
P1.Print aw + "是数字字符"
Case "a" To "z", "A" To "Z"
P1.Print aw + "是字母字符"
Case Else
P1.Print aw + "是其它字符"
End Select
End Sub
100到999之间的水仙花数
Private Sub C1_Click()
Dim i, i2, i3, j, a As Integer
Print "100到999之间的水仙花数"
For i = 100 To 999
j = i \ 100
a = i \ 10
i2 = a - j * 10
i3 = i - a * 10
If i = j ^ 3 + i2 ^ 3 + i3 ^ 3 Then Print i
Next i
End Sub
Private Sub C2_Click()
Dim i, j, a As Integer
Print "100到999之间的水仙花数"
For i = 1 To 9
For j = 0 To 9
For a = 0 To 9
s = i * 100 + j * 10 + a
If s = i ^ 3 + j ^ 3 + a ^ 3 Then Print s Next a
Next j
Next i
End Sub
最大公约数和最小公倍数
Private Sub Form_Click()
Dim x, y, a, s As Integer
x = InputBox("请输入一个整数")
y = InputBox("请输入第二个整数")
a = x
Do
If x Mod a = 0 Then s = a
If y Mod s = 0 Then
Print "x和y的最大公约数是"; s
Print "x和y的最大公倍数是"; x * y / s Exit Do
End If
a = a - 1
Loop While a > 0
End Sub
求出2!+3!+4!+5!的和
Private Sub Command1_Click()
Sum = 0
For i = 2 To 5
s = 1
For j = 1 To i
s = s * j
Next j
Sum = Sum + s
Next i
Print Sum
End Sub
Private Sub Form_Click()
Dim i%, s%, a%
s = 1
a = 0
For i = 2 To 5
s = s * i
a = a + s
Next i
Print "2!+3!+4!+5!="; a
End Sub
九九乘法口决表
Private Sub Form_Click()
Dim i%, j%, d%
For i = 1 To 9
d = -10
For j = 1 To 9
d = d + 10
Print Tab(d); i & "×" & j & "=" & i * j;
Next j
Next i
End Sub
求解出100以内的所有素数
Private Sub Form_Click()
Dim i%, j%, a%, p As Boolean
Print "100以内的所有素数:"
For i = 2 To 100
p = True
a = Int(Sqr(i))
For j = 2 To a
If i Mod j = 0 Then
p = False
Exit For
End If
Next j
If p = True Then Print i
Next i
End Sub
第七次
1、定义一个一维数组X，将下面的10 个数字赋值到它的10个元素中，33，12，0，12，14，90，14，45，23，44。然后通过一个循环将最大元素值（即90）以及最大元素的下标值打印出来工程文件名保存为zy081.vbp
Private Sub Form_Click()
Dim x()
Dim a As Integer
x = Array(33, 12, 0, 12, 14, 90, 14, 45, 23, 44)
a = x(0)
y = 1
For i = 1 To 9
If a < x(i) Then a = x(i): y = i + 1
Next i
Print "最大值为"; a; "其下标为"; y
End Sub
2、建立含有四个命令按钮的控件数组，当单击某个命令按钮，分别显示不同的图形或结束操作。要求：命令按钮名称为CMD，标题分别为：直线，方框，椭圆，结束，工程文件名保存为zy082.vbp
界面和下图相似
Private Sub CMD_Click(Index As Integer)
Select Case Index
Case 0
P1.Cls
P1.Line (2, 2)-(7, 7)
Case 1
P1.Cls
P1.Line (2, 2)-(7, 7), , BF
Case 2
P1.Cls
P1.Circle (5, 5), 3.5, , , , 1.4
Case Else
End
End Select
End Sub
Private Sub Form_Load()
P1.Scale (0, 0)-(10, 10)
End Sub
3、定义一个一维数组X，将下面的10 个数字赋值到它的10个元素中，33，12，0，12，14，90，14，45，23，44。并在窗体上打印该数组，然后采用选择排序方法按递减顺序排序该数组元素，最后再在窗体上打印该数组，工程文件名保存为zy083.vbp Private Sub Form_Click()
Dim x()
x = Array(33, 12, 0, 12, 14, 90, 14, 45, 23, 44)
Print "原数据为："
For j = 1 To 10
Print x(j);
Next j
For s = 1 To 9
For i = s + 1 To 10
If x(s) < x(i) Then
c = x(i)
x(i) = x(s)
x(s) = c
End If
Next i
Next s
Print "排序后为："
For j = 1 To 10
Print x(j);
Next j
End Sub
第八次
1、编写一个打印由指定符号构成的直角三角形图案的子过程DY，该过程有2个形式参数：参数S用于指定三角形的字符，参数N指定构成直角三角形图案的行数。然后编写窗体的单击事件过程，用INPUTBOX函数输入2个实参，调用子过程DY打印出图案来。工程文件名保存为zy81.vbp
界面与下图相似，(实参n=6,s=”*”)
Private Sub Form_Click()
Dim n As Integer
Dim s As String
s = InputBox("输入组成三角形的字符")
n = InputBox("输入三角形图案的行数")
For i = 1 To n
For j = 1 To i
Print s;
Next j
Next i
End Sub
2、编写一个求阶乘的函数JC，然后编写窗体的单击事件过程，在其中调用函数JC，求出2！+4!+6!+8!+10!的和。工程文件名保存为zy82.vbp
Private Sub Form_Click()
Dim i%
Sum = 0
For i = 2 To 10 Step 2
Sum = Sum + jc(i)
Next i
Print "阶乘 4!+6!+8!+10!= "; Sum
End Sub
Private Function jc(n%)
s = 1
For i = 1 To n
s = s * i
Next i
jc = s
End Function
3、在窗体上建立两个命令按钮，标题分别为“传址调用实例”和“传值调用实例”；然后编写两个子过程F1和F2，这两个过程都有2个参数A、B，不同的是：F1中参数采用传址调用，F2采用传值调用，两过程功能相似，都是将两个参数相加和相乘，即A=A+B，B=A*B，并打印A、B值；请编写两个命令按钮的事件过程，用INPUTBOX函数输入两个实参，然后分别调用F1和F2，并打印两个实参的值，注意观察其不同。工程文件名保存为zy83.vbp 界面与下图相似，(实参X=1,Y=2)
Private Sub C1_Click()
Dim x!, y!
x = InputBox("请输入X的值")
y = InputBox("请输入Y的值")
Call f1(x!, y!)
Print "x="; x, "y="; y
End Sub
Private Sub f1(a!, b!)
a = a + b
b = a * b
Print "a="; a, "b="; b
End Sub
Private Sub f2(ByVal a!, ByVal b!)
a = a + b
b = a * b
Print "a="; a, "b="; b
End Sub
Private Sub C2_Click()
Dim x!, y!
x = InputBox("请输入X的值")
y = InputBox("请输入Y的值")
Call f2(x!, y!)
Print "x="; x, "y="; y
End Sub
Private Sub Form_Load()
End Sub
第九次
1、如果求t1=∑a i请编写一个函数FF，要求a i利用数组参数传递的方式与主程序交换数据，注意利用数组的上下界函数lbound(),ubound()，主程序是form-click事件，利用自然数0到9来产生一个数组，然后调用函数FF，求出并打印t1的值，工程文件名保存为zy091.vbp
Private Sub Form_Click()
Randomize
Dim a(9) As Integer
Print "数组为："
For i = LBound(a) To UBound(a)
a(i) = Int(Rnd * 10)
Print a(i);
Next i
Print "t1="; ff(a(), LBound(a), UBound(a))
End Sub
Public Function ff(a() As Integer, d As Integer, f As Integer)
Dim x As Integer
x = 0
For i = LBound(a) To UBound(a)
x = x + a(i)
Next i
ff = x
End Function
2、在菜单工程中选“添加模块”产生标准模块，在其中添加一个全局过程GG，该过程有三个整型参数，其中第三个是可选参数，该过程的功能是求这些参数中的最大值，并在窗体上打印最大值（注意要用form1.print方法）。在窗体上建立两个命令按钮C1，C2，标题分别是传两个参数、传三个参数，然后在通用段定义三个模块级整型变量A%,B%,C%,再编写两个命令按钮的事件过程，在C1事件中a=2,b=5调用GG，在C2事件中c=6调用GG，运行该程序，注意模块级变量的作用。工程文件名保存为zy092.vbp，标准模块名保存为zy092.bas
Dim a%, b%, c%
Private Sub C1_Click()
a = 2
b = 5
Call GG(a%, b%)
Print "最大值为："; a
End Sub
Private Sub C2_Click()
c = 6
Call GG(a%, b%, c%)
Print "最大值为："; a
End Sub
Private Sub Form_Load()
F1.FontSize = 15
End Sub
Public Sub GG(a%, b%, Optional c%)
a = IIf(a > b, a, b)
If Not IsMissing(c) Then a = IIf(a > c, a, c)
End Sub
3、如果求t2=∏a i（连乘的意思）请编写一个过程PP，要求a i利用可变参数传递的方式与主程序交换数据，注意利用ParamArrar数组名，主程序是form-click事件，调用过程PP，
传递参数2，4，6，8，9求出并打印t2的值，工程文件名保存为zy093.vbp
Private Sub Form_Click()
F1.FontSize = 20
Print "数组为:";
pp 2, 4, 6, 8, 9
End Sub
Private Sub pp(ParamArray a())
N = 1
For Each x In a
N = N * x
Print x;
Next x
Print "t2="; N
End Sub
4、Fibonacci数列的第一项和第二项为1，以后各项均是前两项的和，请用递归算法编写一程序，求出该数列的前N项，工程文件名保存为zy094.vbp
Private Sub Form_Click()
Dim n%
n = InputBox("请输入N的值")
For i = 1 To n
Print fib(i);
If i Mod 5 = 0 Then Print
Next i
End Sub
Private Function fib(ByVal n%)
If n <= 2 Then
fib = 1
Exit Function
Else
fib = fib(n - 1) + fib(n - 2)
End If
End Function
第十次
1、参照教材P278例11.1,设计一个具有算术运算及清除功能的菜单，并考虑以下四点要求。
工程文件名保存为zy101.vbp
⑴子菜单项设置快捷键。
2）子菜单项有效控制，只有当除数不为0（即第2个文本框有值）时“除”子菜单才有效。
3）设置子菜单项标记，即在刚完成的子菜单项前面自动打勾。
4）为“乘”和“清除”子菜单设置访问键，乘采用英文字母&mul，清除采用中文清除（&q）。
要用common dialog 控件
Private Sub add_Click()
L4.Caption = Val(T1) + Val(T2)
mul.Checked = False
sub1.Checked = False
div.Checked = False
add.Checked = True
clea.Checked = False
End Sub
Private Sub clea_Click()
T1.Text = ""
T2.Text = ""
L4.Caption = ""
mul.Checked = False
sub1.Checked = False
div.Checked = False
add.Checked = False
clea.Checked = True
End Sub
Private Sub div_Click()
L4.Caption = Val(T1) / Val(T2)
mul.Checked = False
sub1.Checked = False
div.Checked = True
add.Checked = False
clea.Checked = False
End Sub
Private Sub exit_Click()
End
End Sub
Private Sub Form_Load()
Show
T1.SetFocus
End Sub
Private Sub mul_Click()
L4.Caption = Val(T1) * Val(T2)
mul.Checked = True
sub1.Checked = False
div.Checked = False
add.Checked = False
clea.Checked = False
End Sub
Private Sub oper_Click()
If Val(T2) = 0 Then
div.Enabled = False
Else
div.Enabled = True
End If
End Sub
Private Sub sub1_Click()
L4.Caption = Val(T1) - Val(T2)
mul.Checked = False
sub1.Checked = True
div.Checked = False
add.Checked = False
clea.Checked = False
End Sub
2、参考教材p303的例12.1，完成对话框程序设计，建立和保存数据文件。工程名以zy102.vbp 保存。
Private Sub C1_Click()
Cd1.FileName = ""
Cd1.Flags = 2048
Cd1.Filter = "All files|*.*|(*.exe)|*.exe|(*.txt)|*.txt|"
Cd1.FilterIndex = 2
Cd1.DialogTitle = "打开文件(*.exe)"
Cd1.Action = 1
If Cd1.FileName = "" Then
MsgBox "No file selected", 37, "checking"
Else
Open Cd1.FileName For Input As #1
Do While Not EOF(1)
Input #1, a$
Print a$
Loop
End If
End Sub
Private Sub C2_Click()
Cd1.CancelError = True
Cd1.DefaultExt = "txt"
Cd1.FileName = "1bw,txt"
Cd1.Filter = "txt files(*.txt)|*.txt|all files(*.*)|*.*|"
Cd1.FilterIndex = 1
Cd1.DialogTitle = "save file as(*.,txt)"
Cd1.Flags = 2050
Cd1.Action = 2
End Sub
3、在窗体上设置如下图的界面，当点击命令按钮调用字体通用对话框后，选择字体名称、大小、粗斜体以及颜色等，然后将颜色应用到标签“请输入数据”的前景色，其他选择应用到文本框中的文字（注意flag 参数的设置）。工程文件名保存为zy103.vbp。
Private Sub C1_Click()
Cd1.Flags = 259
Cd1.ShowFont
L1.ForeColor = Cd1.Color
T1.FontSize = Cd1.FontSize
T1.Font = Cd1.FontName
T1.FontBold = Cd1.FontBold
End Sub
Private Sub Form_Load()
End Sub
第十一次
2、参考教材P292的例题11.4，编写一个复杂的弹出式菜单，当在窗体上（非文本框位置）
用鼠标右击时，弹出如下图1的菜单（粗体、斜体、隶书），当鼠标滑过文本框时，弹出如下图2的菜单（该菜单带有子菜单），点击这些菜单都可以改变文本框里的文字格
式（提示：在菜单编辑器中设置两个一级菜单gs1,gs2。他们都设置成不可见。其中gs1下属粗体、斜体、隶书，gs2下属字号20，颜色、退出，在窗体和文本框的鼠标事件中分别弹出gs1或gs2即可）。工程文件名保存为zy111.vbp
Private Sub bjs_Click()
Text1.BackColor = vbGreen
End Sub
Private Sub ls_Click()
Text1.FontName = "隶书"
End Sub
Private Sub qjs_Click()
Text1.ForeColor = vbRed
End Sub
Private Sub tc_Click()
End
End Sub
Private Sub xt_Click()
Text1.FontItalic = True
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu gs1
End Sub
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) PopupMenu gs2
End Sub
Private Sub ct_Click()
Text1.FontBold = True
End Sub
Private Sub zh_Click()
Text1.FontSize = 20
End Sub
2、设计一个最简单的画图程序。程序运行时，按住鼠标右键移动画红线，按住鼠标左键移动画蓝线。松开鼠标移动不画线，双击窗体清除图形，工程文件名保存为zy112.vbp
Dim paint As Boolean
Private Sub Form_DblClick()
Cls
End Sub
Private Sub Form_Load()
DrawWidth = 10
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) paint = True
If Button = 1 Then
ForeColor = RGB(0, 0, 256)
ElseIf Button = 2 Then
ForeColor = RGB(256, 0, 0)
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If paint = True Then
PSet (X, Y)
End If
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
paint = False
End Sub
3、设计一个简单的动画程序。材料有：一个代表蝴蝶的图片框，一个代表花园的图片框，一个代表小孩说话的白板（文本框），情景是这样的：当蝴蝶飞进花园时，花园的背景色与前景色变换，同时小孩喊：蝴蝶来了，当蝴蝶飞离花园时，花园的背景色与前景色再次变换，同时小孩喊：蝴蝶别走啊！工程文件名保存为zy113.vbp（注意拖放事件dragover中的state 参数设置）
Private Sub Form_Click()
p1.Visible = True
t1.Text = ""
End Sub
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
p1.Move X, Y
End Sub
Private Sub Form_Load()
p1.DragIcon = p1.Picture
P2.ForeColor = RGB(255, 0, 0)
P2.BackColor = RGB(0, 255, 0)
End Sub
二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value
7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。
1.(1）在考生文件夹中有工程文件sj12６.vbp，其中的窗体如图所示。程序刚运行时，会生成一个有１０个元素的整型数组。若选中"查找最大值"（或"查找最小值"）单选按钮，再单击"查找＂按钮,则找出数组中的最大值(或最小值）,并显示在标签Ｌabｅl２中。请去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意： 考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文 件名存盘。 Private SuｂCommanｄ1_Click() x ＝ａ（１) y = a（1) Fｏr ｉ＝ 2 To 10 If Opｔion1.Valｕｅ = Ｔrue Ｔheｎ If a(i)>x Then ｘ= ａ(i) Ｅｎd Ｉf
ＥlseIｆａ(i) < y Theｎ y = a(i) Ｅnd Ｉｆ Next If Option1.Vaｌue ＝ True Theｎ Labｅl2．Cａption ＝ x Eｌsｅ Ｌaｂel2.Caption = y Enｄ Iｆ Ｅnd Suｂ 2.(2）在名称为Form1的窗体上画一个名称Ｓｈａｐe1的形状控件,在属性窗口中将其 设置为圆形。画一个名称为List１的列表框，并在属性窗口中设置列表项的 值分别为1、2、3、4、５。将窗体的标题设为"图形控件"。单击列表框中的某一项，则将所选的值作为形状控件的填充参数。例如，选择3，则形状控件中被竖线填充。如图所示。 要求： 程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名为sｊ107.vbp，窗体文件名为ｓｊ１0７.ｆｒm。 在Shape控件中,可以用FｉlｌStyle属性设置图形的填充图案，0:透明，2:虚线，3：点线，4:点划线，５:双点划线,6：内实线。 Ｌisｔ控件的Clｉck事件过程为： Private Ｓｕb Ｌｉst１＿Clｉck() Shapｅ1.FiｌlStyｌe = Lｉst１.Text EnｄＳub
第一部分 1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作： ①随机产生20个0到1000的整数，将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上(如下图所示) 2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。 3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。程序运行后，单击命令按钮完成以下工作： ①随机产生30个0～1000的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 4 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。请编写适当的事件过程，完成上述
功能。 5 在名称为Form1的窗体上添加一个名称为Text1的文本框；添加两个标题分别为"对齐方式"、"字体"，名称分别为Fm1、Fm2的框架；在Fm1框架中添加三个单选按钮，标题分别为"左对齐"、"居中"、"右对齐"，名称分别为Opt1、Opt2、Opt3；在Fm2框架中添加两个单选按钮，标题分别为"宋体"、"黑体"，名称分别为Opt4、Opt5。 要求：编写五个单选按钮的Click事件过程，使程序运行时，单击这些单选按钮，可以对文本框中的内容实现相应的操作(如图所示)。 6 请设计如下图所示窗体界面。运行程序时，先向左侧文本框中输入一个不超过10的正整数，然后选择"N的阶乘"或"(N+2)的阶乘"单选钮，即可进行计算，计算结果在右侧文本框中显示。请编写程序完成上述功能。 7 在窗体上添加两个文本框和三个标签，设置它们的属性，达到下图效果。程序运行时，在第一个文本框输入一串字符，在第二个文本框中输入一个字符，然后单击"统计"命令按钮，
程序设计 〖第1题〗『程序设计』(5分)(题号:148) '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)求10~20之间所有素数的乘积并输出在窗体上。 ' 将结果存入变量L中。 '------------------------------------------------- '注意：请在指定的事件内编写代码。 '------------------------------------------------- 答案：---------------------- Dim i As Integer Dim j As Integer Dim b As Boolean l = 1 b = False For i = 10 To 20 For j = 2 To i - 2 If i Mod j = 0 Then b = True End If Next If b = False Then l = l * i End If b = False Next Print Str(l) ---------------------- 〖第2题〗『程序设计』(5分)(题号:150) '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)求1 - 1/2 + 1/3 - 1/4 + ……+ 1/99 - 1/100的值。' 将结果存入变量J中。 '------------------------------------------------- '注意：请在指定的事件内编写代码。 '------------------------------------------------- 答案：---------------------- Dim i As Integer For i = 1 To 100 If i Mod 2 = 1 Then j = j + 1 / i ElseIf i Mod 2 = 0 Then j = j - 1 / i End If Next Print j ---------------------- 〖第3题〗『程序设计』(5分)(题号:131) '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100， ' 结果输出在窗体上。 '------------------------------------------------- '将结果存入变量S中 '------------------------------------------------- 答案：---------------------- Dim i As Integer s = 0 For i = 1 To 10 s = s + 1 / (i ^ i) Next Print (s) ---------------------- 〖第4题〗『程序设计』(5分)(题号:152)
1.（1）在考生文件夹中有工程文件sj126.vbp，其中的窗体如图所示。程序刚运行时，会生成一个有10个元素的整型数组。若选中"查找最大值"（或"查找最小值"）单选按钮，再单击"查找"按钮，则找出数组中的最大值（或最小值），并显示在标签Label2中。请去掉程序中的注释符，把程序中的？改为正确的容。 注意： 考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文 件名存盘。 Private Sub Command1_Click() x = a(1) y = a(1) For i = 2 To 10 If Option1.Value = True Then If a(i)> x Then x = a(i) End If
ElseIf a(i) < y Then y = a(i) End If Next If Option1.Value = True Then Label2.Caption = x Else Label2.Caption = y End If End Sub 2.（2）在名称为Form1的窗体上画一个名称Shape1的形状控件，在属性窗口中将其 设置为圆形。画一个名称为List1的列表框，并在属性窗口中设置列表项的 值分别为1、2、3、4、5。将窗体的标题设为"图形控件"。单击列表框中 的某一项，则将所选的值作为形状控件的填充参数。例如，选择3，则形状 控件中被竖线填充。如图所示。 要求： 程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存 放在考生文件夹下，工程文件名为sj107.vbp，窗体文件名为sj107.frm。 在Shape控件中，可以用FillStyle属性设置图形的填充图案，0：透明，2：虚线，3：点线，4：点划线，5：双点划线，6：实线。 List控件的Click事件过程为： Private Sub List1_Click() Shape1.FillStyle = List1.Text End Sub 3.（1）在名称为Form1的窗体上画一个文本框，名称为Text1；
vb 练习题及答案 【篇一：vb 习题(含答案)】 lass=txt>1 、vb 程序中，通常不会产生错误提示的是( )。（1 分） a、编译错误 b、逻辑错误 c、运行时错误 d、实时错误 2、在设计阶段，双击窗体上任一空白处，打开的窗口是( )。（1 分） a、工程资源管理器窗口 b、代码窗口 c、工具箱窗口 d、属性窗口 3、下列说法中，正确的说法是( )。（1 分） a、窗体名称和该窗体文件名必须一致 b、窗体名称和该窗体文件名 可以不相同 c、窗体名称和该窗体文件名不能使用汉字 d、窗体名称不能使用汉字、但该窗体文件名能使用汉字 4、visual basic 有完备的help 联机帮助功能，可以通过按下功能 键( )得到帮助。（ 1 分） a、f9 b 、f8 c、f1 d 、f5 5、以下( )控件可作为容器使用。（ 1 分） a、label b 、picturebox c、textbox d 、image 6、将窗体的boderstyle 属性设置为( )可使窗口不显示标题栏。（ 1 分） a、0 b 、1 c、2 d 、5 7、文本框没有( )属性（1 分） a、text b 、name c、caption d 、borderstyle 23、下列( )是不合法的常量。（ 1 分） a、100 b 、10e02 c、100.0 d 、10e0.5 24、下列对变量的定义中，定义x 为变体型变量的是( )。（1 分） a、dim x as double b 、dim x c、dim x! d 、x%=23
25、设有如下变量声明：dim testdate as date ，为变量testdate 正确赋值的表达方式是( )。（1 分） a、textdate=#1/1/2002# b 、testdate=#1/1/2002# c、textdate=date(1/1/2002) d 、 testdate=format(m/d/yy,1/1/2002) 26、在立即窗口中运行以下语句，a=beijing :b=shanghai :print a,b 对其输出结果的描述中，正确的是( )。（1 分） a、beijing 和shanghai 中间没有空格 b、beijing 和shanghai 中 间有1 个空格 c、beijing 和shanghai 中间有 6 个空格 d、beijing 和shanghai 前面有7 个空格 27、语句段a=3: b=5:t=a ：a=b: b=t 执行后( )。（1 分） a、a 值为3，b 值为3 b 、a 值为3，b 值为5 c、a 值为5，b 值为5 d 、a 值为5，b 值为3 28、下列语句中，正确的是( )。（1 分） a、if x3*y and xy then y=x^3 b 、if x3*y and xy then y=3x c、if x3*y : xy then y=x^3 d 、if x3*y and xy then y=x**3 29、下面程序段dim x%: x=5: if x then y=x+1 else y=x 运行后， y 结果是( )。（1 分） a、5 b 、6 c、1 d 、显示出错信息 30、执行语句 a = inputbox(today, tomorrow, yesterday, 5, 5) ， 将显示一个输入对话框，在对话框的输入区中显示的信息是( )。（1 分） a、today b 、tomorrow c、yesterday d 、5 31、窗体上有一个命令按钮command1, 编写如下事件过 程: private sub command1_click() :x = val(inputbox(x=)) : y = inputbox(y=) : print x + y : end sub, 单击命令按钮，先后在两个输 入对话框中输入123 和321 ，窗体显示的内容是( )。（1 分） a、444 b 、123321 c、123+321 d 、出错信息 32、执行语句msgbox aaa, 2, bbb 后，所产生的消息框的标题是 ( )。（1 分） a、aaa b 、bbb
一、操作题,每题 10分,6 题共60分 【第4题】 打开文件“考生文件夹\175\工程1、vbp”,完善Command1_Click事件及s函数代码并保存。 实现功能:用递归法求1+2+3+…+100的值,结果输出在窗体上。 Public Function S(n As Integer) As Integer If n = 1 Then S = ① Else S = ② + S(n - 1) End If End Function Private Sub Command1_Click() Dim Sum As Integer Sum = S(③) Print "Sum=" & CStr(Sum) End Sub 【第5题】 打开文件“考生文件夹\851\工程1、vbp”,完善程序实现如下功能并保存: 花果山上有一洞,小猴每次采取跳1阶或者跳3阶的办法从山下跳跃上台阶进洞,编程在Text1中输入台阶数,在Label1中显示有多少种不同的跳法。正确的运行结果如下图所示,调试时输入的台阶数最大不要超过35！ Function s(n As Integer) As Long If n = 1 Or n = 2 Then s = ① Else If n = 3 Then s = 2 Else s = s(n - 1) + s(n - 3) End If End If ①1 ②text1、text ③s(n) ①1 ②n ③100
End Function Private Sub Command1_Click() Dim n As Integer n = Val(②) Label1、Caption = Str(③) End Sub 【第6题】 打开文件“考生文件夹\861\年龄问题、vbp ”,完善程序实现如下功能并保存: 有5个人坐在一起,第5个人说她比第4个人小3岁;第4个人说她比第3个人小3岁;第3个人说她比第2个人小3岁;第2个人又说她比第1个人小3岁;第1个人说她就是38岁。编写程序,计算出第5个人的年龄并显示。 Private Sub cmdDisplay_Click() Print "第5人的年龄:"; age(①) End Sub Function age(n As Integer) As Integer If n = 1 Then age = ② Else age = age(n - 1) - 3 ③ End Function 【第3题】 打开文件“考生文件夹\89\工程1、vbp ”,完善Command1_Click 事件代码并保存。 乘坐飞机的经济舱时,免费托运行李一般不得超过20公斤,超重每公斤按全票价的1、5%计算。 实现功能:输入行李重量及经济舱全票价后,点击按钮,计算出行李托运费用,输出到对应文本框中。 Private Sub Command1_Click() Dim w As Integer '行李重量 Dim pj As Integer '机票价格 Dim fy As Single '托运费用 w = Val(Text1、Text) pj = Val(Text2、Text) If w <= 20 Then ① Else fy = (w - 20) * pj * 0、015 ② Text3、Text = ③ End Sub 【第4题】 打开文件“考生文件夹\122\工程1、vbp ”,完善Command1_Click 事件代码并保存。 王晓珊家距离学校s1(千米),某天她与李明各自同时从家里步行出发上学,王晓珊步行速率v1(千米/小时),李明步行速率v2(千米/小时),结果她们同时到达学校。
一、程序设计 '【程序设计】 1.'题目：编写函数fun，函数的功能是：计算两个正整数的最大公约数，并显示。如：'两个数为15、20，结果显示"5" '要求使用Do ... Loop语句来实现。 答案：Do r = m Mod n If r = 0 Then Exit Do m = n n = r Loop fun = n 2.'题目：判断一个数是否是素数。 答案：---------------------- Dim i As Integer Prime = True For i = 2 To Int(Sqr(m)) If m Mod i = 0 Then Prime = False: Exit For Next i ---------------------- 3,'题目：(事件)单击窗体。 ' (响应)求10!的值，并将结果输出到窗体上。 将结果存入变量SUM中。 答案：---------------------- Dim i As Integer sum = 1 For i = 1 To 10 sum = sum * i Next Print sum 4,'题目：(事件)单击窗体。 (响应)求1+2+3+……+100的值，并把结果输出在窗体上。结果存入变量SUM中。 答案：---------------------- Dim i As Integer For i = 1 To 100 sum = sum + i Next Print sum ---------------------- 5,'题目：编写函数fun，函数的功能是：求1到m之间的偶数之积。 答案：---------------------- Dim y As Double y = 1 Dim i As Integer For i = 1 To m
VB试卷 一、单项选择题(每题2分,共40分) 1. 窗体的标题栏显示内容由窗体对象的属性决定。 A) BackColor B)BackStyle C)Text D)Caption 2. 窗体的示意图标可用属性来设置。 A) Picture B) Image C) Icon D) MouseIcon 3. 窗体的控制菜单的有无由窗体对象的属性决定。 A) ControlBox B) MinButton C) MaxButton D) BorderStyle 4. 若要取消窗体的最大化功能，则可设置属性为False来实现。 A) ControlBox B) MinButton C) MaxButton D) Enabled 5. 以下4个选项，不属于VB的工作模式。 A) 编译 B) 设计 C) 运行 D) 中断 6. 窗体的边框样式由窗体对象的属性来设置。 A) BackStyle B) BorderStyle C) WindowState D) FillStyle 7. 若要以程序代码方式设置在窗体中显示文本的字体大小，则可用窗体对象的属性来实现。 A) FontName B) Font C) FontSize D) FontBold 8. 命令按钮的标题文字由属性来设置。 A) Text B) Caption C) Name D) (名称) 9. VB是面向对象的程序设计，以下4个选项，不属于面向对象的三要素。 A) 变量 B) 属性 C) 事件 D) 方法 10. 若要将某命令按钮设置为默认命令按钮，可设置属性为True来实现。 A) Value B) Cancel C) Default D) Enabled 11. 若要使命令按钮不可见，可设置属性为False来实现。 A) Value B) Enabled C) Visible D) Cancel 12. 运行程序时，系统自动执行窗体的事件。 A) load B) click C) unload D) GotFocus 13. 若要设置文本框最大可接收的字符数，可通过属性来实现。 A) MultiLine B) Length C) Max D) MaxLength 14. 若要使某命令按钮获得控制焦点，可使用方法来设置。 A) Refresh B) SetFocus C) GotFocus D) Value 15. 若要使命令钮可响应事件，可通过设置属性的取值来实现。 A) Visible B) Enabled C) Default D) Value 16. 在运行时，若要调用某命令按钮的Click事件过程，可设置该命令按钮对象的 属性为True来实现。 A) Enabled B) Value C) Default D) Cancel 17. 标签框的边框，由属性的设置值决定。
精品文档 Vb算法程序题汇总 目录 1、输入5个数并排序（选择排序） 2、判读输入的三条边能否构成三角形 3、图形打印（倒三角） 4、判断是否为闰年 5、产生随机数 6、输入消费金额，计算出实收金额 7、输入用电量，计算出输出电费 8、求出100以内某数的阶乘 9、程序改错，求100以内奇数之和 10、输入学生成绩，显示相应等级（select case结构） 11、图形打印（三角形） 12、用字符串函数Ucase()和转换函数Asc()填空 13、对数组赋值并求和 14、利用函数，把abcd变成BCD 15、输入10个数，求最大值最小值和平均值 16、输入公里数，计算车费 17、已知两边和夹角，求三角形面积 18、输入学生成绩，显示相应等级（select case结构） 19、学生成绩转换（select case结构） 20、求100以内能够被19整除的个数 1、完善程序代码实现当单击输入并排序按钮后，从键盘输入5个数，保存在数组中，并显示在窗体上，然后把这5'个数按照从小到大的顺序排列并显示在窗体上。 Private Sub Command1_Click() Dim x As Long Dim n As Integer, i As Integer, s As Long Dim a(1 To 5) As Single For i = 1 To 5 ???嘠污?灮瑵潂?请在输入第+ Str(i) + \/5个数)) Print a(i); Next i Print For i = 1 To ___①__ Min = a(i): m = i For x = i + 1 To 5 精品文档． 精品文档 If ___②___ Then Min = a(x): m = x Next x
第一套试题 一、选择题（每题2分，共30分） 1.在VB环境中，工程文件的扩展名是( C ) （A）.frm （B）.bas （C）.vbp （D）.frx 2.下面4项中不属于面向对象系统三要素的是( A ) （A）变量（B）事件（C）属性（D）方法 3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C ) （A）\ （B）/ （C）Mod （D）* 4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor （C）AutoRedraw （D）Caption 5.不论何控件，共同具有的属性是( B ) （A）Text （B）Name （C）ForeColor （D）Caption 6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞 7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D ) （A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构 （C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构 8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D ) （A）“12334”（B）123 （C）12334 （D）157 9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D ) （A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1 （C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+1 10.若要清除列表框的所有内容，可用来实现的方法是( C )
| 最新VB题库及答案 一、选择题 第1部分 1、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是 A、Private Sub Text1_Change() = "计算机等级考试" End Sub ] B、Private Sub Command1_Click() Caption = "计算机等级考试" End Sub C、Private Sub Form_Click() = "计算机等级考试" End Sub D、Private Sub Command1_Click() = "计算机等级考试" { End Sub 2、在一行内写多条语句时，每个语句之间用（）符号分隔。 A、 , B、： C、. D、； 3、下面（）是合法的变量名。 A、X_YZ B、123ABC C、INTEGER D、X-Y ] 4、下面（）是合法的字符常量。 A、 ABC$ B、“ABC” C、‘ABC’ D、 ABC 5、表达式16/4 - 2^5*8 MOD 5\2的值为（）。 A、14 B、 4 C、20 D、2 6、设a=”MicrosoftVisualBasic”，则以下使变量的b值为”VisualBasic”的语句是 A、b=Left(a,10) B、b=Mid(a,10) — C、b=Right(a,10) D、b=Mid(a,11,10) 7、设a="a"，b="b"，c="c"，d="d"，执行语句x = IIf((a < b) Or (c > d), "A",
第四章 1、从键盘上输入4个数，编写程序，计算并输出这4个数的和及平均值。通过inputbox 函数输入数据，在窗体上显示和及平均值。 Dim a as single For i=1 to 4 a=inputbox（“请输入一个数：”，“数据输入”） sum=sum+a n=n+1 avg=sum/n next i print “和是：”,sum print “平均值是：”，avg 2、编写程序，要求用户输入下列信息：姓名、年龄、通信地址、邮政编码、电话，然后将输入的数据用适当的格式在窗体上显示出来。 Dim a as variant Fontsize=20 a=inputbox（“请输入姓名：”，“数据输入”） print “姓名：”；a a=inputbox（“请输入年龄：”，“数据输入”） print “年龄：”；a a=inputbox（“请输入通信地址：”，“数据输入”） print “通信地址：”；a a=inputbox（“请输入邮政编码：”，“数据输入”） print “邮政编码：”；a a=inputbox（“请输入电话：”，“数据输入”） print “电话：”；a 3．a=5，b=2.5，c=7.8，编程序计算： y=（πab）/（a+bc） 程序： Dim a as single，b as single，c as single a=5 b=2.5 c=7.8 pi=3.14 y=（pi*a*b）/（a+b*c） print “结果是：”;y 4、输入以秒为单位表示的时间，编写程序，将其转换为几日几时几秒。 Dim a as long，d as integer ，h as integer，s as integer a=inputbox（“请输入秒数：”，“数据输入”） d=int（a/86400） h=int（（a-d*86400）/3600） s=a-d*86400-h*3600 print d；“日”；h；“时”；s；“秒” 5、自由落体位移公式为：s=gt2/2+v0t
《VB程序设计基础》试题 一、选择题：（每空 2 分，共 20 分） 1. 与传统的程序设计语言相比,Visual Basic最突出的特点是___________。 A. 结构化程序设计 B. 程序开发环境 C. 事件驱动编程机制 D. 程序调试技术 2. Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是________。 A. 属性、事件、方法 B. 控件、属性、事件 C. 窗体、控件、过程 D. 窗体、控件、模块 3. 窗体模块保存在一个扩展名为__________的文件中。 A. bas B. vbp C. vbg D. frm 4. 下面正确的赋值语句是_________。 A. x+y=30 B. y=π*r*r C. y=x+30 D. 3y=x 5. 设S=“492”，表达式Right（S,1）+Left（S,1）+Mid（S,2,1）的值为__________。 A.“492” B.“249” C.“294” D.“429” 6. 将数学表达式a≤b≤c写成Visual Basic表达式，正确的是__________。 A. a<=b<=c B. a<=b Or b<=c C. a<=b And b<=c D. a<=b Not b<=c 7.为了把焦点移到文本框，所使用的方法是___________。 A. SetFocus B.Visible C.Refresh D.GetFocus 8. INT（100*RND）产生的随机整数的闭区间是_____________。 A.[0，100] B.[1，100] C.[1，99] D.[0，99] 9. 一个数组说明为Dim a(0 to 5，1 to 5) As Integer，则该数组共有_________个 元素。 A. 5 B. 36 C. 30 D. 不确定 10. 下面过程定义语句合法的是____________。
第一次作业 Private Sub Command1_Click() Text1.Text = "欢迎你学习VB程序设计" Text1.ForeColor = vbGreen Text1.Font = "宋体" Text1.FontSize = 25 Text1.FontItalic = True Text1.FontBold = True End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Click() Text1.ForeColor = vbRed Text1.Font = "隶书" Text1.Text = "佛山大学理学院" End Sub 第二次作业(服务员密码) 1、请建立一个工程（ zy02.vbp),含有1个窗体（zy02.frm),该窗体有两个标签，两个命令按钮（设置成不同的背景色），一个文本框。要求如下：1）当程序启动运行时，命令按钮不可用（变灰色），当在文本框中输入正确密码时，显示出来的是星号，（2）… 3）点击结帐按钮后，窗体所有控件消失，仅显示出标签“谢谢你，再见！”这样的服务用语。Private Sub Command1_Click() Text1.Visible = False Label2.Visible = True Label2.Caption = "你好，你需要什么" Command2.Enabled = True End Sub Private Sub Command2_Click() Command1.Visible = False Command2.Visible = False Label1.Visible = False Label2.Caption = "谢谢你，再见！" End Sub Private Sub Form_Load() Label2.Visible = False Command1.Enabled = False Command2.Enabled = False End Sub Private Sub Text1_Change() If Text1.Text = "12345" Then Command1.Enabled = True Text1.PasswordChar = "*" End Sub 第三次
1、在考生文件夹下有工程文件wy7、vbp及窗体文件wy7、frm,该程序就是不完整的,请在有？号的地方填入正确的程序代码,然后删除？及所有注释符号(即 '号),但不能修改其它部分。修改后的程序文件都保存,存盘时不得修改文件夹与文件名。 本题描述如下: 在窗体上有一个名为Text1的文本框,有三个命令按钮,名称分别就是C1、C2与C3,标题分别就是"读入"、"加密"与"存盘"。要求程序运行后,点击"读入"按钮,将文本文件in7、txt(该文件在考生文件夹下)中的文本信息读入文本框Text1中;点击"加密"按钮将Text1中的英文字母加密转换,并将转换后的结果显示到Text1中。转换方式为转换成该字母对应字母表中后两个位置的字母。例如,转换前的字母就是"a",则转换后的就是"c",转换前就是"E",转换后就是"G";点击"存盘"按钮, 则将转换后的文本框中的文本保存到out7、txt 文件中(该文件保存到考生文件夹下)。 Private Sub C1_Click() Dim strinfo As String Open "in7、txt" For Input As 1 Input #1, strinfo Close #1 Text1、Text = strinfo End Sub Private Sub C2_Click() Dim strchange As String Dim i As Integer For i = 1 To Len(Text1、Text) strchange = strchange + Chr(Asc(Mid(Text1、Text, i, 1)) + 2) Next Text1、Text = strchange End Sub Private Sub C3_Click() Open "out7、txt" For Output As 1 Print #1, Text1、Text Close #1 End Sub 2、(1)在考生文件夹下有工程文件wy5、vbp及窗体文件wy5、frm,该程序就是不完整的,请在有？号的地方填入正确内容,然后删除？及所有注释符(即'号),但不能修改其它部分。存盘时不得改变文件名与文件夹。本题描述如下: 在窗口中有一个RichText文本框控件(名称为rtx1)与一个文本框控件(名称为Text1),两个命令按钮,名称 分别为Command1与Command2,标题分别为"加入WY01、TXT"、"统计字符个数"。要求程序运行后,单击command1将考生文件夹下的wy01、txt的内容显示到rtx1中;单击"统计字符个数"按钮统计Text1中有多少个字符,将结果显示在Text1中。
第8套 1.基本操作（2小题，每小题15分，共计30分） （1）在名称为Form1的窗体上画一个水平滚动条，其名称为HScroll1，然后通过属性窗口设置窗体和滚动条的属性，实现如下功能：1）窗体标题为“设置滚动条属性”2）滚动条所能表示的最小值和最大值分别为0和2003）程序运行后，单击滚动条两端的箭头时，滚动框移动的增量值为24）程序运行后，单击滚动框前面或后面的部位时，滚动框移动的增量值为105）滚动框的初始位置为100程序的运行情况如图所示。要求：不要编写任何代码。*注意：存盘时必须存放在考生文件夹下，工程文件名为lq1.vbp，窗体文件名为lq1.frm。 （2）在名称为Form1的窗体上画一个文本框，其名称为Text1（如图1所示），编写适当的事件过程。程序运行后，如果单击窗体，则可使文本框移到窗体的左上角；而如果在文本框中输入信息，则可使文本框移到窗体的右上角。程序的运行情况如图2所示。要求：不得使用任何变量；只允许通过修改属性的方式移动文本框。*注意：存盘时必须存放在考生文件夹下，工程文件名为lq2.vbp，窗体文件名为lq2.frm。 图1 图2 2.简单应用（2小题，每小题20分，共计40分） （1）在考生文件夹下有一个工程文件lq3.vbp，相应的窗体文件为lq3.frm。其功能是产生20个0～1000的随机整数，放入一个数组中，然后输出这20个整数中大于500的所有整数之和。程序运行后，单击命令按钮（名称为Command1，标题为“输出大于500的整数之和”），即可求出这些整数的和，并在窗体上显示出来（如图所示）。这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 （2）在考生文件夹下有一个工程文件lq4.vbp，相应的窗体文件为lq4.frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出0～100范围内不能被7整除的所有整数的和，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，