《VB程序设计》实验报告
台州学院
《VB程序设计》实验报告
实验1.1设计一个程序，程序运行的初始界面如图1-1所示。当单击“显示”按钮时，在文本框中显示“欢迎使用VB！”（图1-1）；当单击“清除”按钮时，清除文本框内的文本；当单击“退出”按钮时，结束程序运行。Private Sub Command1_Click()
Text1.Text = "欢迎使用VB！" End Sub
Private Sub Command2_Click()
Text1.Text = ""
End Sub
Private Sub Command3_Click()
End
End Sub
实验1.2 设计一个程序，程序运行的初始界面如图1-3所示，其中“显示”按钮为不可用。同时要求：
（1）当单击“改变文字”按钮时，在左边标签文字内容改为“你好，张三！”，同时“改变文字”按钮变为不可用（图1-4）；
（2）当单击“隐藏”按钮时，将左边标签设为不可见，同时“隐藏”按钮变为不可用，“显示”按钮变为可用（图1-5）；
（3）当单击“显示”按钮时，重新显示左边标签，同时“隐藏”按钮变为可用，“显示”
Private Sub Command1_Click()
Label1.Caption = "你好，张三！"
Command1.Enabled = False End Sub
Private Sub Command2_Click()
Label1.Visible = False
Command3.Enabled = True
Command2.Enabled = False
End Sub
Private Sub Command3_Click()
Label1.Visible = True
Command2.Enabled = True
Command3.Enabled = False
End Sub
实验2.1 设计一个程序，运行时界面如图2-1所示。当单击“左”、
“右”、“上”、“下”按钮时，标签分别向左、右、上、下移动。
Private Sub Command1_Click()
Label1.Left = Label1.Left - 100
End Sub
Private Sub Command2_Click()
Label1.Left = Label1.Left + 100
End Sub
Private Sub Command3_Click()
Label1.Top = Label1.Top - 100 End Sub
Private Sub Command4_Click()
Label1.Top = Label1.Top + 100 End Sub
实验2.2 设计一个程序，在文本框中输入一个3位整数，单击按钮后，在标签上输出该数的百位数、十位数和个位数，运行界面如图2-2所示。Private Sub Command1_Click()
Label1.Caption = "百位数：" + Left(Text1.Text, 1) + " 十位数：" + Mid(Text1.Text, 2, 1) + " 个位数：" + Right(Text1.Text, 1)
End Sub
实验2.3 设计一个程序，实现简单计算的功能、
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
a = Text1.Text
b = Text2.Text
c = a + b
Label1.Caption = "+"
Text3.Text = c
End Sub
Private Sub Command2_Click()
Dim a As Single, b As Single, c As Single
a = Text1.Text
b = Text2.Text
c = a - b
Label1.Caption = "-"
Text3.Text = c
End Sub
Private Sub Command3_Click()
Dim a As Single, b As Single, c As Single
a = Text1.Text
b = Text2.Text
c = a * b
Label1.Caption = "*"
Text3.Text = c
End Sub
Private Sub Command4_Click()
Dim a As Single, b As Single, c As Single
a = Text1.Text
b = Text2.Text
c = a / b
Label1.Caption = "/"
Text3.Text = c
End Sub
Private Sub Command5_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Command6_Click()
End
End Sub
实验2.4 设计一个程序，单击“输入”按钮可弹出一个输入对话框，提示用户输入带区号的电话号码，区号为4为，号码为8位，比如输入“7”，然后将区号和电话号码在消息对话框中显示出来，运行界面如图2-4所示。Private Sub Command1_Click()
Dim c As String
c = InputBox("输入带区号的电话号码，区号为4为，号码为8位，比如输入“7”：")
MsgBox ("区号：" + Left(c, 4) + Chr(13) + Chr(10) + "号码：" + Right(c, 8))
End Sub
实验3.1 在两个文本框中输入实数，单击按钮，显示“较小值是xxx”。Private Sub Command1_Click()
Dim a As Single, b As Single, m As Single
a = Text1.Text
b = Text2.Text
If a < b Then
m = a
Else
m = b
End If
MsgBox "较小值是" & m
End Sub
实验3.2 输入三个实数，计算其中的最大值，运行界面如图3-1所示。采用变量m来存放中间过程和结果
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, m As Single
a = Text1.Text
b = Text2.Text
c = Text3.Text
If a > b Then '将a，b的较大值存入m
m = a
Else
m = b
End If
If c > m Then m = c '再将m与c 比较，得到最大值
Text4.Text = m
End Sub
注：比较a，b部分可以写成单行If 结构：
If a > b Then m = a Else m = b 实验3.3 用输入对话框输入x，根据下式计算对应的y，并在窗体上输出y的值。
Private Sub Command1_Click()
Dim x As Single, y As Single
x = InputBox("请输入x的值：",0) If x > 10 Then
y = Sqr(x) + Sin(x)
ElseIf x < 10 Then
y = 2 * x ^ 3 + 6 '注意：乘号不能省略
Else
y = 0
End If
Print "y的值是" & y
End Sub
实验3.4 由键盘输入（1～7）范围内的整数，试编程将其转换为中文表示的星期几，运行界面如图3-2所示。Private Sub Command1_Click()
Dim n As Integer, w As String '注意：w的类型必须为String
n = Text1.Text
If n = 1 Then w = "星期一"
ElseIf n = 2 Then
w = "星期二"
ElseIf n = 3 Then
w = "星期三"
ElseIf n = 4 Then
w = "星期四"
ElseIf n = 5 Then
w = "星期五"
ElseIf n = 6 Then
w = "星期六"
ElseIf n = 7 Then
w = "星期日"
Else
w = "错误的输入"
End If
Text2.Text = w
End Sub
实验3.5（选做）由键盘输入3个数，试编程将它们的中间数打印出来Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, m As Single
a = Text1.Text
b = Text2.Text
c = Text3.Text
If a >= b And b >= c Then
m = b
ElseIf a >= c And c >= b Then m = c
ElseIf b >= a And a >= c Then m = a
ElseIf b >= c And c >= a Then m = c
ElseIf c >= a And a >= b Then m = a
Else
m = b
End If
Text4.Text = m
End Sub
实验 4.1 编写过程Commandl_Click，显示对话框输入n
（n>0），循环n次，每次随机产生一个两位数，求出其中的偶数之和，并在标签框Label1上显示。
Private Sub Command1_Click()
Dim n As Integer, i As Integer, a As Integer, s As Integer
Randomize '初始化随机数
n = InputBox("请输入n：")
For i = 1 To n
a = Int(Rnd * 90) + 10 '随机生成一个两位数存于变量a中
Print a; '显示在屏幕上，以便校对（实际编程可以省略）
If a Mod 2 = 0 Then s = s + a '判断是否为偶数
Next i
Label1.Caption = s
End Sub
说明：随机生成两位数也可以用
a=(Int(Rnd*9)+1)*10+Int(Rnd*10) 实验 4.2 编写过程Commandl_Click，用InputBox函数输入10个学生的成绩，统计后依次用标签控件Labell～Labe13显示优秀（85-100）、通过（60-84）和未通过（小于60）的人数。
Private Sub Command1_Click()
Dim n1 As Integer, n2 As Integer, n3 As Integer, CJ As Integer
For i = 1 To 10
CJ = InputBox("请输入成绩(一共10个成绩)：")
If CJ >= 85 And CJ <= 100 Then
n1 = n1 + 1
ElseIf CJ >= 60 And CJ <= 84 Then
n2 = n2 + 1
ElseIf CJ < 60 Then
n3 = n3 + 1
End If
Next i
Label1.Caption = n1 Label2.Caption = n2
Label3.Caption = n3
End Sub
实验 4.3 编制事件程序Command1_Click，执行该过程时输入n，并计算下列表达式的值，然后将计算结果在文本框控件Text1中显示。
Private Sub Command1_Click()
Dim n As Integer, i As Integer, s As Single
n = InputBox("请输入n：")
s = 1
For i = 2 To n
s = s + i / ((i + 1) * (i + 2))
Next i
Text1.Text = s
End Sub
实验4.4 打印出所有的水仙花数，所谓水仙花数是指一个三位数，其各位数字立方和等于该数。例如，153是一水仙花数，因为
程序1：用3个数字组合成百位数的办法，生成所有的三位数进行判断。Dim a As Integer, b As Integer, c As Integer 'a代表百位数字，b十位，c各位
Dim s As Integer 's存放组合成的三位数
For a = 1 To 9 '百位数字取值范围是1-9
For b = 0 To 9 '十位数字取值范围是0-9
For c = 0 To 9 '个位数字取值范围是0-9
s = a * 100 + b * 10 + c '组合成的三位数
If s = a * a * a + b * b * b + c * c * c Then '判断是否水仙花数
Print s
End If
Next c
Next b
Next a
---
程序2：将百位数拆分出每一位，来判断是否水仙花数。
Dim i As Integer '存放循环取值的三位数
Dim a As Integer, b As Integer, c As Integer 'a存放百位数字，b十位，c各位
For i = 100 To 999
a = Int(i/100)
b = Int((i - a * 100) / 10)
c = i Mo
d 10
If i = a * a * a + b * b * b + c * c * c Then '判断是否水仙花数 Print i
End If
Next i
实验4.5 用近似公式求值，当时不再累加。
Private Sub Command1_Click()
Dim i As Integer, s As Single, t As Single
t = 1
Do
i = i + 1
s = s + 1 / i ^ 2
Loop Until 1 / i ^ 2 < 10 ^ -5 Print Sqr(6 * s)
End Sub
实验4.6（选做）一个两位数的正整数，如果将其个位数与十位数对调所生成的数称为对调数，如28是82的对调数。现给定一个两位的正整数，请找到另一个两位的正整数，使这两个数之和等于它们各自的对调数之和，如56+32=65+23。
Private Sub Form_Click()
Dim i As Integer, j As Integer, m As Integer, n As Integer
m = InputBox("") n = (m Mod 10) * 10 + m \ 10
For i = 10 To 99
j = (i Mod 10) * 10 + i \
10
If i + m = j + n Then
Print m, i
Exit For
End If
Next i
End Sub
实验5.1 输入10个数给x数组，找出
其中值为最大的元素并将其与第一个
元素互换，找出值最小的元素并将其
与最后一个元素互换，其他元素不动。
如
原来： 8，7，9，15，0，3，-8，19，
31， 5
输出：31，7，9，15，0，3， 5，19，
8，-8
Private Sub Form_Click()
Dim x(10) As Integer, i As
Integer
Dim Max As Integer, m As
Integer, Min As Integer, n As
Integer 'Max、m存最大值和最大值位
置；Min、n存最小值和最小值位置
For i = 1 To 10
x(i) = InputBox("
请输入第" & i & "个数：")
Print x(i); '
显示在窗体上
Next i
Print '显示换行
Max = x(1)
Min = x(1)
m = 1
n = 1
For i = 1 To 10
If Max < x(i) Then
Max = x(i)
m = i '记录最大值
End If
If Min > x(i) Then
Min = x(i)
n = i '记录最小值位置 End If Next i If m > 1 Then '如果最大元素不是第一个，则与第一个交换 x(m) = x(1) x(1) = Max End If If n < 10 Then '如果最小元素不是第10个，则与第10个交换 x(n) = x(10) x(10) = Min End If For i = 1 To 10 '在窗体上显示结果 Print x(i); Next i End Sub
注意：如果第一个为最小元素，则结果出错，因为最小值被最大值调换了。 可以这么改：在最后一个If 前添加一行“If n = 1 Then n = m”可以设定新的最小值所在位置。 ==================== 实验5.2 编写事件过程
Command1_Click ，完成下列运算： （1）输入10个数到整型数组a ； （2）将a(1)各位数字和赋值到b(1)、a(2)各位数字和赋值到b(2)、...、a(10)各位数字和赋值到b(10)； （3）在窗体上以一行输出a 数组各元素值（保持原输入值不变）；
（4）在窗体上以一行输出b 数组各元素值。
Private Sub Command1_Click() Dim a(10) As Integer, b(10) As Integer, i As Integer '下面完成（1）： For i = 1 To 10 a(i) = InputBox("请输入第" & i & "个数：") Next i '（1）完成，下面完成（2）： For i = 1 To 10 t = a(i) '取元素
While t > 0 '分解t 的每一位，并加入到b(i)中 b(i) = b(i) + （t Mod 10) '取出t 的个位数，加入b(i)中 t = t \ 10 ’t 缩小十倍，去掉原来的个位 Wend Next i '（2）完成，下面完成（3）： For i = 1 To 10 Print a(i); Next i Print '（3）完成，下面完成（4）： For i = 1 To 10 Print b(i); Next i End Sub
====================
实验5.3 利用随机函数产生30个不同的三位正整数，打印出这30个数，然后将它们按从大到小的次序排序，并打印出排序后的结果。
（完全可以参照：书上实例，可以用冒泡排序法，也可以用选择排序法） ====================
实验5.4（选做）输入n 后，再输入n 个数a1,a2,…，an,按照下列公式计算s 的值并显示。
公式1：v=(a1+a2+...+an)/n 公式2：
s=Sqr((a1-v)^2+(a2-v)^2+...+(an-v)^2))/n
Private Sub Form_Click() Dim a() As Single, n As Integer, i As Integer Dim sum As Single, v As Single, s As Single n = InputBox("请输入元素个数：") ReDim a(n) For i = 1 To n
a(i) = InputBox("
请输入第" & i & "个数：")
Print a(i); '
显示在窗体上
Next i
Print '显示换行
'求出v：
For i = 1 To n
sum = sum + a(i)
Next i
v = sum / n
'求出s：
sum = 0
For i = 1 To 10
sum = sum + (a(i) - v) ^ 2
Next i
s = Sqr(sum) / n
'显示结果：
Print v, s
End Sub
====================
实验6.1 编写一个求三个数最大值的函数max(x，y，z)，然后调用此函数求下列表达式的值，首先在文本框中
输入a,b,c三个数，然后单击“计算”按钮，在文本框中输出表达式的值m。表达式为：
'功能：返回x,y,z的最大值
Function max(ByVal x As Single, ByVal y As Single, ByVal z As Single) As Single
max = x
If max < y Then max = y
If max < z Then max = z
End Function
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, m As Single
a = Text1.Text
b = Text2.Text
c = Text3.Text
m = max(a, b, c) / (max(a + b, b, c) * max(a, b, b + c)) Text4.Text = m
End Sub
====================
实验6.2 编一求素数的函数过程Prime(x)，若x是素数返回True，否则返回False。主调程序调用Prime(x)函数输出100之内的所有素数。
'功能：判断整数x是否素数，如果是返回True，否则返回False
Function Prime(ByVal x As Integer) As Boolean
Dim i As Integer
If x < 2 Then Exit Function '当x<2返回False
For i = 2 To Sqr(x)
If x Mod i = 0 Then Exit Function '如果x被i整除，说明x 不是素数，立刻返回
Next i
Prime = True 'x是素数
End Function
Private Sub Form_Click()
Dim i As Integer
For i = 1 To 100
If Prime(i) Then Print i; Next i
End Sub
===================
实验6.3（选做）编一过程
Find(S1,S2)，用于在字符串S1中查找子串S2，并用消息框输出结果：未找到或找到的个数。（提示：利用Mid 函数反复在字符串S1找S2子串。）'功能：在字符串S1中查找子串S2，返回找到的个数，未找到返回0 Function Find(S1 As String, S2 As String) As Integer
Dim i As Integer, j As Integer, L1 As Integer, L2 As Integer
L1 = Len(S1)
L2 = Len(S2)
For i = 1 To L1 - L2 + 1
If Mid(S1, i, 1) = Left(S2, 1) Then '如果S1中第i个字母与S2的首字母是否相同，进行下面的判断 For j = 2 To L2 '判断S1中第i+1个开始的字母序列与S2中第2个开始的字母序列是否相同
If Mid(S1, i + j - 1, 1) <> Mid(S2, j, 1) Then Exit For Next j
If j > L2 Then Find = Find + 1 '找到相同的子串，子串计数+1
End If
Next i
End Function
Private Sub Form_Click()
Dim S1 As String, S2 As String, n As Integer
S1 = Input("请输入一个字符串：")
S2 = Input("请输入要查找的子串：")
n = Find(S1, S2)
If n > 0 Then
MsgBox "找到" & n & "个子串。"
Else
MsgBox "未找到。"
End If
End Sub
实验7.1 设计一个字体修饰的程序，界面如图7-1所示。要求：框架1中有两个复选框，可以选择粗体和斜体对标签中的文字进行修饰；框架2中有两个单选按钮，可以选择宋体或楷体对标签中的文字进行修饰；标签Label1的文字内容为“Visual Basic 程序设计”，宋体，常规，三号；文字对齐方式为居中。
Private Sub Check1_Click()
If Check1.Value = 1 Then
Label1.FontBold = True
Else
Label1.FontBold = False End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
Label1.FontItalic = True Else
Label1.FontItalic = False End If
End Sub
Private Sub Option1_Click()
Label1.FontName = "宋体"
End Sub
Private Sub Option2_Click()
Label1.FontName = "楷体
_GB2312"
End Sub
实验7.2 设计一个点菜的程序，界面如图7-2所示。要求：框架中的复选框提供可选择的三种套餐，右边的文本框中可以输入数量；输入时文本框只接受数字键；并且只有选取了相应的套餐后才可以进行输入；如果没有选取套餐，那么文本框不能编辑并清空；单击“确定”按钮，统计点餐的金额，并用消息框显示出来。
Private Sub Check1_Click()
If Check1.Value = 0 Then
Text1.Text = ""
Text1.Enabled = False
Else
Text1.Enabled = True
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 0 Then
Text2.Text = ""
Text2.Enabled = False
Else
Text2.Enabled = True
End If
End Sub
Private Sub Check3_Click()
If Check3.Value = 0 Then
Text3.Text = ""
Text3.Enabled = False
Else
Text3.Enabled = True
End If
End Sub
Private Sub Command1_Click()
Dim s As Single
If Check1.Value = 1 Then s = 13 * Val(Text1.Text)
If Check2.Value = 1 Then s = s + 18 * Val(Text2.Text)
If Check3.Value = 1 Then s = s + 25 * Val(Text3.Text)
MsgBox "总价" & s & "元"
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text1.Enabled = False
Text2.Text = ""
Text2.Enabled = False
Text3.Text = ""
Text3.Enabled = False
End Sub
Private Sub
Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
End If
End Sub
Private Sub
Text2_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
End If
End Sub
Private Sub
Text3_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0
End If
End Sub
实验7.3 设计一密码修改程序，要求：1）当单击“确定”按钮后，首先比较“用户名”和“原密码”是否一致，若一致且都为“admin”，则继续执行步骤2；否则弹出消息框，提示用户出错，并让用户重新输入。
2）比较“新密码(N) ”和“新密码(S) ”，若两者一致，弹出密码修改成功消息框，程序终止执行。否则弹出错误消息，并让用户重新输入。
3）当单击“取消”按钮后，程序终止执行。
Private Sub Command1_Click()
If Text1.Text = "admin" And Text2.Text = "admin" Then
If Text3.Text = Text4.Text Then
MsgBox "密码修改成功。"
End
Else
MsgBox "输入的新密码不一致，请重新输入。"
End If
Else
MsgBox "用户名或密码错误，请重新输入。"
End If
End Sub
Private Sub Command2_Click()
End
End Sub
实验7.4（选做）设计一个拨号盘的程序。界面如图7-4所示。要求：命令按钮数组构成数字键，单击数字键按钮，将拨号的内容显示在文本框Text1中；单击“重拨”按钮，再现原来的拨号过程；
（提示：再现过程由定时器实现）定时器的时间间隔为0.5秒；设置文本框最多接受10个字符。
Dim Number As String
Dim n As Integer
Private Sub Command1_Click(Index As Integer)
Text1.Text = Text1.Text & Command1(Index).Caption
End Sub
Private Sub Command2_Click()
Number = Text1.Text
Text1.Text = ""
n = 0
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Text1.MaxLength = 10
End Sub
Private Sub Timer1_Timer()
If n < Len(Number) Then
n = n + 1
Text1.Text = Text1.Text & Mid(Number, n, 1)
Else
Timer1.Enabled = False
End If
End Sub
实验8.1 下列程序运行时，先输入各公司月销售额，然后单击命令按钮，图片框中将显示各公司销售额的圆饼图（如图8-1所示）。要求：在文本框中只能输入数字字符；在圆饼图中分别用红、绿、篮色显示A、B、C公司的扇区填充色。
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, d As Single
Const pi = 3.
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = a + b + c
Picture1.Scale (-1.5,
1.5)-(1.5, -1.5) '设置图片框的坐标，左上角为(-1.5,1.5)，右下角为(1.5,-1.5)
Picture1.FillStyle = 0 '设置填充方式为实心（原来默认为1，透明）
Picture1.FillColor = vbRed
Picture1.Circle (0, 0), 1, , -2 * pi, -2 * pi * a / d
Picture1.FillColor = vbGreen Picture1.Circle (0, 0), 1, , -2 * pi * a / d, -2 * pi * (a + b) / d
Picture1.FillColor = vbBlue Picture1.Circle (0, 0), 1, , -2 * pi * (a + b) / d, -2 * pi
End Sub
Private Sub
Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
End If
End Sub
Private Sub
Text2_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
End If
End Sub
Private Sub
Text3_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
End If
End Sub
实验8.2（选做）坐标系作图：设置如图8-2所示的运行界面，单击“坐标系”按钮，将图片框的坐标系设置为原点在中央，x轴[-10，10]，y轴[-10，
10]，并画出该坐标系；单击“扇形”按钮，在图片框中画出一个圆心在原点，半径为5，圆周为红色，线宽为2，内部为绿色，起始角为30度，终止角为150度的扇形；单击“退出”按钮，结束程序运行。
Private Sub Command1_Click()
Picture1.Scale (-10, 10)-(10, -10) '设置图片框的坐标系
Picture1.Line (-10, 0)-(10, 0) Picture1.Line (0, 10)-(0, -10) Picture1.CurrentX = 0 'CurrentX, CurrentY 指示当前输入位置
Picture1.CurrentY = -0.3
Picture1.Print "(0,0)"
End Sub
Private Sub Command2_Click()
Picture1.DrawWidth = 2 '画图的线粗为2
Picture1.FillColor = vbGreen Picture1.FillStyle = 0 '填充方式为实心
Picture1.Circle (0, 0), 5, vbRed, -3.14159 / 6, -3.14159 * 5 / 6
End Sub
Private Sub Command3_Click()
End
End Sub
实验9.2 某文本文件以下列格式存储若干学生的学号和两门课成绩，编写单击窗体的事件过程：
（1）用通用对话框控件Commondialog1选择该文件；
（2）在Label1(0)～Label1(1)显示总分最高的学生之学号、总分。
文本文件格式
“”,78,89
“”,83,79
……
Private Sub Form_Click()
Dim xh As String, cj1 As Integer, cj2 As Integer Dim topxh As String, topcj As Integer
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Input #1, xh, cj1, cj2
If cj1 + cj2 > topcj Then topcj = cj1 + cj2
topxh = xh
End If
Loop
Close #1
Label1(0).Caption = topxh
Label1(1).Caption = topcj End Sub
vb程序设计的几个简单例子
Option Explicit Private Sub Command1_Click() Dim i%, j%, r! i = Val(Text1.Text) j = Val(Text2.Text) Picture1.Print i; j; Call gysh(i, j) Picture1.Print "最大公约数是" & i r = Val(InputBox("输入半径")) Call S(r) End Sub Public Function gysh(m As Integer, n As Integer) As Integer Dim t% Do t = m Mod n: m = n: n = t Loop While t <> 0 End Function Public function S(r!) Const pi = 3.1415926 S = pi * r ^ 2 MsgBox "圆面积为：" & S End function Public Function 定积分() End Function
Dim a() As Integer, i%, j%, n%, t% Private Sub Command1_Click() Picture1.Print "排序前的数组为：" n = V al(InputBox("请输入一个3到100的整数")) ReDim a(1 To n) Randomize For i = 1 To n a(i) = Int(Rnd * 100) + 1 Picture1.Print Tab(((i - 1) Mod 5) * 6); a(i); Next i End Sub Private Sub Command2_Click() Picture1.Print Picture1.Print "排序后的数组为：" For i = 1 To n - 1 For j = i + 1 To n If a(i) > a(j) Then t = a(i) a(i) = a(j) a(j) = t End If Next Next For i = 1 To n Picture1.Print Tab(((i - 1) Mod 5) * 6); a(i); Next End Sub
《VB选择结构程序设计》教学设计
《VB选择结构程序设计》教学设计 山东省临清市第二中学吴焕英 【案例背景】 高中信息技术新课程的实施，其课程目标定位于全面提升学生的信息素养，其课程的设置从知识与技能、过程与方法、情感态度与价值观三个方面实施这个课程目标。然而，众多的老师实施新课程后发现：教学内容的范围比以前更广泛了、课时远远不够、教学软硬件资源缺乏等诸多问题。因此，如何更有效地开展新课程教学，成为老师们迫切需要解决的问题。本教学案例从学生的实际情况出发，根据现有的数学、英语基础，结合简单的生活实例，引导学生进行探索式学习，问题从简单的英语口语入手，过渡到课题的研究学习。原本枯燥无味的VB程序设计，在简单、形象的生活实例下，激发了学生的思考与探索思维。这样的教学案例，值得我们反思研究、总结与完善。 【教材分析】 算法与程序设计是普通高中信息技术课程中选修模块之一，本模块旨在使学生进一步体验算法思想，了解算法和程序设计在解决问题过程中的地位和作用；能从简单问题出发，设计解决问题的算法，并能初步使用一种程序设计语言编制程序实现算法解决问题。 “选择结构”是教育科学出版社出版的高级中学课程标准实验教科书、算法与程序设计第二章第三节的内容，共分三课时，本课为第二课时。主要内容是用选择结构编写简单的程序解决具体问题。用选择结构编写简单的程序解决具体问题是在学生已经掌握了程序设计数据的表示与处理的基础上，理解了顺序结构的前提后提出的。 通过本课的学习，可以促进学生对问题解决方法和思想的理解与掌握，从而提升学生的问题解决能力，让学生在按照一定的流程解决问题的过程中，去体会和理解程序设计的思想，而且也为多分支选择结构的学习打下基础。 【学生分析】 高一的学生在数学课中已经有了算法和程序设计的基础，学生对事物的分析、综合能力及独立思考能力、分析解决问题的能力都有了一定的水平，在教师的有效引导下，有能力进行自我探究，如果用一种学生比较感兴趣的，能够贴近学生日常生活的例子来分析选择结构的话，那么学生会比较感兴趣。 【教学目标分析】 通过教师引导学生去探究、发现技术背后所蕴含的技术价值和技术思想，使其获得知识与技能的同时，理解和掌握过程与方法，这样才能够学会认知，学会做事，乃至学会生活，提高终生学习的能力、分析解决问题的能力，满足其终身发展的需要，成为适应信息社会的公民。 因此本节课的目标有以下几项：
《VB程序设计》习题答案-林卓然编著
《VB语言程序设计》教材 林卓然编著 《VB程序设计》习题参考答案 第1章习题 一、单选题 1．D 2．B 3．C 4．A 5．C 6. A 7．A 8．B 9．C 10．(1)A (2)B 二、多选题 1．ACDE 2．BCDE 3．CD 4. CE 三、填空题 1．事件驱动 2．解释，编译 3．设计，运行，中断 4. 属性，方法，事件 5. Command2_Click 6. 中央，代码 7．MyForm.frm 8. (1)Cmd1_Click() (2)Print "VB语言程序设计" 编程及上机调试 1. 按要求设置窗体属性 2．在窗体上建立一个标签Label1。程序代码如下： Private Sub Form_Click() Label1.Caption = "你单击了窗体" End Sub Private Sub Form_DblClick() Label1.Caption = "你双击了窗体" End Sub 3．在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。两个文本框的Text属性均为空。 Private Sub Command1_Click() Dim x As Single x = Val(Text1.Text) Text2.Text = 15 * x End Sub 第2章习题 一、单选题 1．①D，②D 2．①A，②C 3．A 4．B 5．B 6．B 7．C 8．D 9．B 10．B 11．A 12．A 13．B 14．A 15．B 16．A 17．B 二、多选题 1．BD 2．CD 3．AC 4. AD 三、填空题 1．(1) Sin(50*3.14159/180) (2) (2+x*y)/(2–y*y)
VB程序设计习题
练习一 一、选择题 1、下面列出的程序设计语言中（A ）是面向问题的语言。 A、机器语言 B、汇编语言 C、高级语言 D、0、1二进制语言 解释：机器语言和汇编语言都是面向机器的语言，二进制语言为机器语言，故其为面向机器的语言 2、下面列出的程序设计语言中（C ）不是面向对象的语言。 A、C B、C++ C、Java D、VB 3、下列（D ）不属于VB 6.0的版本。 A、学习版 B、专业版 C、企业版 D、共享版 解释：VB6.0共有三个版本：标准版、专业版、企业版。而其中的标准版是为初学者了解基于windows的应用程序开发而设计的，也可称为学习版。 二、填空题 1、从程序设计语言发展过程的角度来分类，计算机程序设计语言分：机器语言、汇编语言和高级语言。 2、VB 6.0采用了面向对象、事件驱动（可视化编程）的编程机制。 3、启动VB 6.0后可以从“现存”选项卡选择并打开系统中现存的工程文件。 练习二 一、选择题 1、如果窗体对象的名称为Forma1，Backcolor是窗体对象的一个属性，用来设置窗体的背景色，那么设置窗体背景色为蓝色的语句正确的是（ A ） A、Forma1.Backcolor=vbBlue B、Backcolor= vbBlue C、Forma1 =vbBlue D、Forma1′s Backcolor is vbBlue. 2、下面方法中，不能打开编码编辑器的是（D） A、单击“视图”菜单中的“代码窗口”命令。 B、双击窗体设计器的窗体或控件。 C、双击窗体设计器的窗体或控件，单击工程资源管理器中的“查看代码”按钮。 D、双击窗体设计器的窗体或控件，单击标准工具栏中的“代码窗口”按钮。 3 、保存VB应用程序时，下列方法中正确的是（Ａ） A、先保存窗体文件，再保存工程文件。 B、先保存工程文件，再保存窗体文件 C、直接保存窗体文件，系统会自动按顺序先保存窗体文件再保存工程文件。 D、直接保存窗体文件，系统会自动按顺序先保存工程文件再保存窗体文件。 二、填空题 1、VB工程文件的扩展名是工程文件(*.vbp)，窗体文件的扩展名是窗体文件(*.frm)。 2、选中工程资源管理器中的窗体对象，再单击按钮可打开窗体设计器。 3、在VB中，按下工具栏中的“启动”按钮或
vb程序设计试题(含答案)
第一套试题 一、选择题（每题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程序设计》考试题型练习 答案
《VB 程序设计》考试题型练习 一. 填空 1. VB 中的对象具有 属性 、 事件 、和 方法 三种特性，它们是构成对象的三个基本要素。 2. VB 中的常量分为哪三种： 文字常量 、 符号常量（用户自定义常量） 系统内部常量 。 3. 变量的三要素是指： 变量的名 、 变量的数据类型 、 变量的值 。 4. VB 中日期型数据的表示格式为： #mm/dd/YYYY#或#mm-dd-YYYY# 。 5. 在VB 中，“\”是 整除 运算符；“/”是 浮点除 运算符。两个字符串可以使用连接符 &或+ 串接起来。 6. 2 22z y x z y x ++++的VB 表达式为 （x+y+z ）/sqr(x^2+y^2+z^2) 。 7. a ac b b 242-+的VB 表达式为 (b+sqr(b^2-4*a*c))/(2*a) 。 8. 计时器控件的 Interval 属性用于设置Timer 事件发生的时间间隔，为了使计时器控件Timer1每隔0.5秒触发一次Timer 事件，应将该属性设置为 500 ；为了暂时关闭计时器，应把该计时器的 Enable 属性设置为False 。 二. 单选题 1. 如果要使VB 程序运行时不能对文本框中的内容进行编辑，需将文本框的哪个属性设置为True （ D ）。 A ）MultiLine B ）Visible C ）TabStop D ）Locked 2. 表达式Right("asdf", 2)+Ucase("as" )的值为（ A ）。 A ）dfAS B ）asAS C ）dfas D ）asas 3. 执行如下语句： a ＝InputBox("Today", "Tomorrow", "Yesterday") 将显示一个输入对话框，在对话框的输入区中的默认值是（ C ）。 A) Today B) Tomorrow C) Yesterday D) Today Tomorrow Yesterday 4. 设a=3，b=5，则以下表达式值为真的是（ B ）。 A) a>=b And b>10 B) (a>b) Or (b>0) C) (a<0) Or Not (b>0) D) (-3+5>a) And (b>0)
《VB程序设计》期末复习要点
《VB程序设计》期末复习要点 重点复习内容: 通过本课程的学习,要求重点掌握: 1. VB窗体的属性,事件和方法,常用的控件的公用属性和常用标准控件. 2. VB常用的数据类型,常量的定义,变量的命名,变量的声明及作用域. 3. 常用的表达式. 4. For…Next循环,Do…Loop循环,If…Then…Else条件判断语句,Select Case语句. 5. 一维数组,二维数组的声明与存取. 6. 过程的声明与调用. 7. 菜单编辑器,输入对话框,消息输出对话框及系统对话框的使用. 考试题型及分值: 1. 判断题共10题(每题1分,共10分) 2. 单项选择题10题(每题2分,共30分) 3. 填空题10空(每空2分,共20分) 4. 阅读程序,写出程序运行结果2题(每题10分,共20分) 5. 程序填空( 共20分) 复习题: 判断题(正确的打√,错误的打×) ( )1.VB对象就是窗体和控件. ( )2.事件是VB对象可以响应的用户操作. ( )3.文本框和标签框通过同一属性在窗体上显示文字. ( )4.For…Next循环结构的默认步长为1. ( )5.对象的属性都可以在程序中通过语句设置. ( )6.能够改变多项选择框中背景颜色的属性是BackColor. ( )7.使用Open语句可以创建新的顺序文件. ( )8.要在窗体上添加控件,从工具箱中将控件拖到窗体上即可. ( )9.所有对象的属性都可以在属性窗口中设定. ( )10.标签没有change事件和setFocus方法. ( )11.方法Form1.show与Form1.visible=True是等效的. ( )12.Msgbox函数建立的信息框既能显示信息又能输入用户的信息. ( )13.Do…Loop Until语句实现循环时,不管条件真假,首先无条件地执行一次循环. ( )14.函数Str(23)与Str(-23)的值的长度相同. ( )15.变量名的第一个字符必须是字母. ( )16.InputBox函数和MsgBox函数一样,返回的是字符串. ( )17.改变窗体的标题也就是改变其属性窗口中的name属性. ( )18.文本框控件有Caption属性. ( )19.在Visual Basic中,向过程传递参数时,按地址传递参数是缺省的. ( )20.在工具箱内双击命令按钮图标,便会在窗体上建立一个命令按钮. ● 单项选择题 1.若要求从文本框中输入密码时在文本框中只显示* 号,则应在此文本框的属性窗口中设置( ). A,Text属性值为* B,Caption属性值为* C,Password属性值为空D,Passwordchar属性值为* 2.在文本框的属性中,用于设定文本框最多可接受字符数的属性是( ).
公开课VB程序设计教案
第四课学学程序设计—初步认识编程软件VB 教学目标： 知识目标：了解什么是程序设计语言和计算机程序以及语言的分类 过程与方法：培养学生的阅读总结和自主探索能力 情感态度与价值观：通过学生利用所学的知识解决实际问题，激发学生 的学习兴趣 教学重难点：了解什么是程序设计语言 启发学生创新思维 以任务为驱动，激发学生创新思维 教法：讲授法、任务驱动法 教学过程： 一、导入新课 教师运行游戏小程序，引起学生的兴趣，并打开程序的原代码说明编程并不很神秘。试运行游戏小程序，激发学生的学习兴趣。 二、教师讲授： 程序设计语言 教师活动：语言是人类交流思想、沟通感情最重要的工具。那么语言不通的人如何交流呢？ 学生活动：请一个语言翻译或自己学会他人的语言 教师活动：计算机所做的事情均为人向机器下达的命令，那么操作作者又是通过什么语言同计算机进行沟通的呢？ 程序设计语言的分类及特点
1、机器语言 教师活动：①计算机能听懂的语言（机器语言）②机器语言的实质（二进制语言）③二进制语言的特点。强调计算机内部只认识二进制学生活动：谈对二进制语言的感受 教师小结：机器语言的特点（二进制、计算机直接能懂、难以理解，与人类语言差距较大）汇编语言-用助记符号表示面向机器的程序设计语言。使用汇编语言编写的程序，机器不能直接识别，要由一种程雪汇编语言翻译成机器语言。适合编写直接控制机器操作的程序，不容易使用。高级语言-最接近人的自然语言，即简单易学，它所编制的程序计算机执行时需要“翻译”，执行速度比二进制程序慢。 三：展示微课视频 VB简介、认识VB窗口、相关概念：1、对象的概念 2、属性的概念 3、事件和代码的概念。演示设计运行程序“奔跑的小汽车”依照微课演示编写程序“奔跑的小汽车” 四：学生体验 1、学生编写程序“奔跑的小汽车”，教师巡回指导。 2、试修改程序，让汽车倒车、速度变慢。 五、教学评价： 1、教师点评教师通过巡视，把部分学生修改的结果进行点评，指出典型的错误。 六、课后小结： 这节课，我们体验了用VB设计程序，了解程序有关知识。（回顾本节知
[整理]VB程序设计复习题及答案.
中南大学现代远程教育课程（专科）考试复习题及答案 《VB程序设计与应用》 一、选择题：在每小题给出的四个选项中，只有一项是符合题目要求的，请把所选项前的字母填在 题后的括号内。 1. Visual Basic程序中分隔一行中各语句的字符是（）。[ ] A)‘ B): C)\ D)_ 2. 下列可作为Visual Basic的变量名的是（）。[ ] A: Filename B: A（A＋B）C: A%D D : Print 3. 要让菜单项无效，应将（）属性值设置为False。 [ ] A. Visible B. Enabled C. Moveable D. Checked 4. 以下过程是（）事件。 Prviate Sub Form_Load( ) …… End Sub [ ] A: 命令按钮的单击B: 命令按钮的装载 C; 窗体的装载D: 窗体的单击 5. Vb中描述文件扩展名的是（）属性。[ ] A: Drive B: Pattern C: FileName D: Path 6. 关于Visual Basic中事件的说法中，不正确的为（）。[ ] A)事件是由Visual Basic预先定义好的，能够被对象识别的动作 B)DblClick（双击）是Visual Basic中的一种事件 C)一个对象可以识别一个或多个事件 D)对于一个系统提供的对象可以识别哪些事件，需要程序员自己定义 7. 下列控件中可设置滚动条是（）。 [ ] A. 检查框（复选框） B. 框架 C. 文本框 D. 标签框 8. 在Visual Basic中建立一个空窗体，( )不会是其默认名。 [ ] A. Form1 B. Form2 C. Formx D. Form10 9. Const One&=1，则One为（）类型的常数。[ ] A)整型 B)字节型
VB程序设计教程第四版课后答案
vb 课后习题答案 第一章习题参考答案 一、填空题 1、对象事件驱动 2、编译运行模式解释运行模式 二、简答题 1、简述 VB 的特点。 答：①可视化的程序设计方法 ②面向对象的程序设计思想 ③事件驱动的编程机制 ④结构化的程序设计语言 ⑤高度的可扩充性 ⑥强大的数据库访问能力 ⑦支持动态数据交换 ⑧支持对象链接与嵌入 2、简述 VB 的安装过程。 答：①向光驱中放入VB 安装光盘； ②计算机将运行自动安装程序，若没有，执行VB 目录下的Setup.exe； ③根据提示逐一回答问题，并点击“下一步”； ④点击“完成”； 2、如何启动 VB。 答：三种方法： ①单击“开始”按钮，选择“程序”菜单下的“Microsoft Visual Basic 6.0 中文版”菜单项并单击； ②双击桌面上的VB6.0 快捷图标； ③在“开始”菜单的运行对话框中输入命令来启动VB； 第二章习题参考答案 一、选择题： 1-10、 DCACD BCBBC 11-20、 BADCA BBAAB 21-29、 AACBB CDDC 二、填空题 1．窗体、控件 2．属性值 3．属性窗口设置、代码窗口设置 4．事件过程 5．对象名、下划线、事件名 6． Form_Click 第三章习题参考答案 一、选择题
1、B 2、 C 3、 A 4、B 5、 A 6、 C 7、 C 二、填空题 1、 11 字符型、字节型、整型、长整型、单精度型、双精度型、货币型、逻辑型、日 期型、对象型、变体型。 String、 Byte、 Integer 、 Long、 Single、 Double、 Currency、 Boolean 、Date、 Object 、 Variant 2、双引号 (英文 )、# 3、 ASCII、1 、2 4、 public 、通用、 Dim、 Static、Private、 Static 5、 &、 +、+ 6、 Now()、 Time 、日期型 三、解答题 1、(3) 2、 (1 ) 3、（ 1）常量（关键字）（ 2）字符型常量（ 3）逻辑型常量（ 4）变量（ 5）字符串常量（ 6）变量 （7）字符串常量（ 8）变量（ 9）日期型常量（题目应是 #11/16/1999# ）（ 10）数值型常量（单精度） 4、31 5、（ 1） (1+y/x)/(1-y/x) （2） x^3+3*x*y/(2-y) （3） sqr(abs(a*b-c^3)) （ 4）sqr(s*(s-a)*(s-b)*(s-c)) 6、 7、（ 1） 13 （ 2） 17 （3） #1999-11-12# （ 4） zxy123ABC 8、（ 1） 19 （ 2） 8.16666666666667 （3） 5． 25 （4） 2 9、（ 1） -4 （2） 2 . 82842712474619 （ 3） -3 （ 4） 49 （5）” hello （”6）He 7）16 （ 8）“-459.65 ”（ 9） 5 10、（ 4） 11、（ 2） 12、（ 4） 第四章习题参考答案 一、选择题： 1—7: DAABBCD 二、填空题 1． 500.00% 2．将字号扩大为原来的二倍 3． B 三、编程题（略） 1．文本框、标签和命令按钮的名称分别为text1 、 label1、 command1 Private Sub Command1_Click() Label1.caption=text1.text Command1.caption=text1.text End Sub
VB程序设计期末复习题
《V i s u a l B a s i c程序设计》期末复习题 一、单项选择题 1．Visual Basic是一种面向对象的可视化编程语言，采取了（）的编程机制。 A．按过程顺序执行B．从主程序开始执行 C．事件驱动D．按模块顺序执行 2．与传统的设计语言相比，Visual Basic最突出的特点是（） A．程序开发环境B．结构化程序设计 C．程序调试技术D．事件驱动的编程机制 3．将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其它机器上不能运行的主要原因是（）。 A．缺少.frm窗体文件B．该可执行文件有病毒 C．运行的机器上无VB系统D．以上原因都不对 4. Visual 集成开发环境有三种工作模式，下列不属于三种工作模式之一的是（）。 A．设计模式B．编写代码模式 C．执行模式D．中断模式 5．后缀为.bas的文件表示（）。 A．工程文件 B．窗体文件 C．窗体二进制数据文件 D．标准类模块文件 6．工程文件的扩展名是（）。 A．.vbp B．.frm C．.bas D．.frx 7．刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（）。 A．时钟控件B．图像框C．框架D．通用对话框 8.以下叙述中错误的是（）。 A．一个工程中可以包含多个窗体文件 B．在设计Visual Basic程序时，窗体、标准模块、类模块等需要分别保存为不同类型的文件 C．在一个窗体文件中用Private定义的通用过程能被其它窗体调用 D．全局变量必须在标准模块中定义 9．要在窗体Form1内显示“欢迎您！”，使用的语句是（） A．="欢迎您!" B．="欢迎您!" C．Form. print "欢迎您!" D． "欢迎您!" 10．决定标签内显示内容的属性是（） A．Name B．Text C．Caption D．Alignment 11．要设置命令按钮的背景图形，必须设置的两个属性是（） A．Caption和Picture B．Style和Picture C．Style和Icon D．Value和Icon 12．将数据项“China”添加到列表框List1中成为第一项，应使用的语句是（）A．"China" B．"1,China" C．"China",0 D．"China",1 13．在VB中，下列各项合法的变量名是（）。 A．Integer B．ab-c C．2abc D． a_bc 14．在VB中，下列合法的变量名是（）
《VB程序设计》教案
教案首页
教案纸 2009年9 月8 日教学手段： 利用多媒体机房演示安装Visual Basic 6.0，并对该开发环境进行分析介绍。让学生明确课程的性质和地位、学习本课程要达到的要求。导入新课： 第1课Visual Basic简介 1.1可视化程序设计（讲授法；图文并茂） 课堂讲解本任务要求了解可视化程序设计的概念。 1.2面向对象程序设计（讲授法） 课堂讲解本任务要求了解面向对象程序设计的概念。 1.3 VB6.0的运行安装和启动（边讲边练） 课堂讲解本任务要求掌握VB6.0的运行安装和启动方法。 1.4 VB6.0集成开发环境（边讲边练） 课堂讲解本任务要求熟悉VB6.0开发环境。 本课小结： 面向对象程序设计 可视化程序设计 布置作业： P20页习题一2、3，预习：第2课
教案首页
教案纸 2009年9 月9 日教学手段： 利用多媒体机房边讲边演练。 复习提问： 什么是面向对象？以及面向对象的方法和属性是什么？ 导入新课： 第2课VB6.0应用程序的创建及管理 2.1创建VB6.0应用程序的步骤（演、讲、练） 课堂讲解本任务要求掌握创建VB6.0应用程序的步骤。 学生课堂完成任务： （1）建立用户界面的对象； （2）设置对象的属性值。 （3）编写程序代码，建立事件过程。 （4）保存和运行应用程序。 2.2 VB6.0的工程管理（演、讲、练） 课堂讲解本任务要求掌握VB6.0工程管理的方法。 2.3使用帮助信息（边讲边练） 课堂讲解本任务要求掌握帮助信息的使用方法。 本课小结：略 布置作业： P22页上机实验一4 预习：第3课
VB程序设计 试题与答案-1
《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. 下面过程定义语句合法的是____________。
VB程序设计试题及答案一
V B程序设计试题及答案（一） 一、单选题 1. VB6.0是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) Forml.Caption=“欢迎使用VB” (B) Forml.Caption='欢迎使用VB' (C) Forml.Caption=欢迎使用VB (D) Forml.Caption="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 ……
初识VB》教学设计
《初识V B》教学设计一、学生分析 本节课的授课对象为初三年级学生，这阶段的学生理解能力和接受能力较强。初一年级时学生已学习了一些程序设计语言的概念，知道计算机能直接认识的语言为机器语言，为本节课的学习打下了一定的基础。 二、教材内容分析 1、本节的主要内容及在本章中的地位 本节课教学内容为九年级下册第1章第1、2节的内容，主要学习程序、程序设计语言的概念和VB的创建工程、设计界面、编写程序、保存文件、运行程序等操作方法 2、教学重点、难点 重点：程序的概念和作用、创建VB程序的一般步骤和方法 难点：程序的作用、窗体文件和工程文件的保存 3、课时安排：1节 三、教学目标 1、知识与技能 （1）了解程序的概念以及程序在计算机中的作用 （2）了解程序设计语言的不同类型、特点和发展趋势 （3）了解程序设计的方法 （4）了解VB程序设计环境，知道在VB程序设计环境中创建程序的一般步骤和方法 （5）了解VB，学会用VB创建第一个程序 2、情感态度价值观 （1）注重学生的自学能力的培养。
（2）鼓励学生动手、动脑，培养勤于动手、主动探究的精神。 （3）培养学生利用信息技术解决实际问题的能力。 四、教学理念和方法 1．对于程序与程序设计语言等概念，学生学习起来较枯燥，故先安排学生带着教师提出的几个问题，看书思考和自学，再由教师组织学生个别回答、师生举例、师生讨论、归纳等活动来将几个概念弄清楚。 2．对于VB软件的学习，教师先展示一个由VB开发的小游戏，师生一起参与游戏的使用，让学生感受到VB软件的实用性，充分调动学生积极使用VB开发小程序的愿望，再由教师示范讲解VB程序设计环境中创建程序的一般步骤和方法，最后由学生动手尝试使用VB。 五、教学资源 教学硬件：教师机1台、学生机60台、液晶投影仪1部 教学软件：windows xp、达道多媒体教学软件、自制的教学课件 五、教学过程设计
VB程序设计复习题
《VB程序设计》复习题 一、选择题 1.改变控件在窗体中的上下位置，应修改控件的__A_____属性 A .Top B. Left C.Width D. Right 2.将通用对话框类型，设置为字体对话框，可修改该控件的____D_____属性 A. font B. filename C. filter D. action 3.标签控件最重要的属性是__A______ A. caption B. text C. name D. width 4.文本框中选定的内容，由下列____C_____属性反映。 A. Text B.Caption C. Seltext D. sellenght 5.选中复选框控件时，value属性的值，可以是_ D______ A.true B. false C. 0 D.1 6.设置列表框选中的文本用____D____属性 A. selected B. caption C. text D. list 7.简单组合框的style值为____B_____ A .0 B. 1 C. 2 D. 3 8.在文件列表框的实现文件的多重选择，应修改该控件的___D______属性 A. filename B. pattem C. path D. multiselect 9.语句listl.removeitem 1 将删除list.listindext等于___D______的项目。 A. 0 B. 2 C. 3 D. 1 10.计时器的interval属性为0时，表示____A_____。 A. 计时器失效 C. 相隔0 毫秒 B. 相隔0秒 D. 计时器的enable属性为false 11.以下的vb 常量中非法的是(B) a. “Good Luck” b. PI c. 1.5E-03 d. 16.3412 12.要想返回文本框中输入的内容则可利用其( B )属性进行编程 a.caption b. text https://www.360docs.net/doc/1416043265.html, d. righttoleft 13.下列不能用commondialog 控件调用的对话框是( D) a. open/save b. help c. font d. search 14.vb 应用程序是分层管理的,其最高的层次为( A) a. 工程 b. 模块 c. 窗体 d. 过程
常见vb程序设计代码
常见vb程序设计代码 作者 : 窦振山 1、猴子每天吃掉的桃子是所有桃子的一半多一个，到第七天发现只剩下一个了，问最开始有几个桃子？、、 Private Sub Command1_Click() Dim m(1 To 7) m(1) = 1 For i = 2 To 7 m(i) = (m(i - 1) + 1) * 2 Next For i = 1 To 7 Print "第" & i & "天的桃数是"; m(i) Next End Sub 2、百元百鸡问题：公鸡三元一只，母鸡两元一只，小鸡一元两只，现用百元买一百只鸡Private Sub Command1_Click() Dim x As Integer Dim y As Integer For x = 1 To 100 For y = 1 To 100 If 3 * x + 2 * y + (100 - x - y) / 2 = 100 Then Print "公鸡 "; x; "母鸡"; y; "小鸡"; 100 - x - y End If Next Next End Sub 1、综合运用一维数组、二维数组、动态数组和控件数组的有关知识编写程序，要求能输入学生的学号、姓名、性别、年龄等个人简况，输入的学生人数不限，并可按学号或姓名查询。界面设计用到了三个command即“添加”、“查询”和“退出”，八个label和四个text 用来输入学号、姓名、成绩和年龄，一个frame，一个picturebox图片框用来显示结果 其程序代码设计如下： Private Type stu id As Integer nam As String sco As Single age As Integer End Type Dim students(100) As stu Dim s As Integer Private Sub Command1_Click() Static i As Integer If Text1.Text = "" Then
VB程序设计复习题答案
VB程序设计复习题 1．Visual Basic是一种___D___的可视化程序设计语言。 A．面向机器 B．面向过程 C．面向问题 D．面向对象2．Visual Basic主窗口中不包括____B_____。 A．标题栏 B．状态栏 C．工具栏 D．菜单栏 3．程序运行中用鼠标双击当前窗体时，会触发窗体的_____C____ 事件。 A．Load B．Unload C．DblClick D．KeyPress 4．假设窗体上已有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先要执行的操作是 ____A______。 A．单击窗体上没有控件的地方 B．单击任一个控件 C．双击任一个控件 D．双击窗体上没有控件的地方 5、要设置窗体上各控件的属性，可在 ____C___ 中进行。 A．窗体布局窗口 B．工程资源管理器窗口 C．属性窗口 D．窗体窗口 6．设变量A的值为-2，则___A___函数的执行结果与其他三个不一样。 A．Val("A") B．Int(A) C．Fix(A) D．-Abs(A) 7．要在窗体Forml的标题栏上显示"统计程序"，可用___B___语句。 A．https://www.360docs.net/doc/1416043265.html,="统计程序" B．Form1.Caption="统计程序" C. Forml.Caption=统计程序 D．https://www.360docs.net/doc/1416043265.html,=统计程序 8．函数String(n, "str")的功能是 B 。 A．把数值型数据转换为字符串 B．返回由n个字符组成的字符串 C．从字符串中取出n个字符 D．从字符串中第n个字符的位置开始取子字符串 9、定义变量如下： Dim MyVar MyVar =”come see me “ 若在立即窗口中显示MyVar的值，下面正确的是（ A ）
VB程序练习题整理稿剖析
1．退出Visual Basic 的快捷键是______。A. Ctrl+Q B.Shift+Q C.Alt+Q 2．窗体设计器是用于设计______。 A．应用程序的界面 C．应用程序的代码D. Ctrl+Alt+Q B. 对象的属性D. 窗体的代码 3．启动Visual Basic 后,VB为用户建立的第一个窗体是______。 A．Form1 B.Form C．窗体1 D. 窗体 4．启动Visual Basic 后,VB为用户新建立的工程的名字是______。 A．窗体1 B. 工程1 C．窗体 D. 工程 5．工程资源管理器窗口包含的文件类型有______种。 A．1 B.2 C．3 D. 4 6．如果VB环境中缺少某个窗口，一般应从主菜单______的下拉菜单中找到相应的激活命令。 A．编辑C．调试B. 文件D. 视图 7．能够通过标准工具栏打开的窗口是______。 A．代码窗口 C．属性窗口 8．窗体文件的扩展名______。B. 设计器窗口D. 窗体布局窗口 A．.bas B. vbp C．.exe 9．工程文件的扩展名______。 A．.com D. frm B. vbp C．.exe D. bas 10．Visual Basic的编程机制是______。 A．面向过程C．事件驱动B. 面向对象D. 可视化 （三）练习题 使用VB建立一个应用软件的全过程有哪些步骤？。1．具体过程如下（1）在窗体上建立用户窗口（界面）对象。 （2）分别对对象设置属性。 （3）分别对对象事件的过程编程且完成代码输入。 （4）运行程序和调试程序。 （5）保存程序。 1． 2．保存VB文件，至少要保存几个文件？应先保存什么文件？2．至少保存2个文件，先保存窗体文件，后保存工程文件。