实验A VB环境和可视化编程基础
1．
（1）运行界面
（2）参考代码：
Private Sub Command1_Click()
label3.Caption = text1.Text
End Sub
2．模仿教材例1.1，将事件过程中自上而下移动改为自右向左移动，也要考虑文字出窗体边界的情况。
（1）运行界面
（2）参考代码：
Private Sub Command1_Click()
Timer1.Interval = 0
Call mymove
End Sub
Sub mymove()
Label1.Move Label1.Left - 20
If Label1.Left = 0 Then Label1.Left = Form1.Width
End Sub
Private Sub Command2_Click()
Timer1.Interval = 200
End Sub
Private Sub Timer1_Timer()
Call mymove
End Sub
3．编写一程序，在文本框中统计在该窗口上鼠标单击的次数。（1）运行界面：
（2）编写代码：
Private Sub Form_Click()
Text1 = Val(Text1) + 1
End Sub
Private Sub Form_Load()
Text1.Text = ""
End Sub
4．代码：
Private Sub Form_Click()
Form1.Caption = "鼠标单击"
Form1.Picture = LoadPicture("d:\1.jpg")
End Sub
Private Sub Form_DblClick()
Form1.Caption = "鼠标双击"
Form1.Picture = LoadPicture("d:\2.jpg")
End Sub
Private Sub Form_Load()
Form1.Picture = LoadPicture("d:\3.jpg")
End Sub
5．命令按钮、字号、内容和格式的复制练习（1）运行界面
（2）参考代码：
Private Sub Command1_Click()
Text1.FontName = "黑体"
Text1.FontSize = 25
End Sub
Private Sub Command2_Click()
Text2.Text = Text1.SelText
Text2.FontName = Text1.FontName
Text2.FontSize = Text1.FontSize
Text1.SetFocus
End Sub
实验B 顺序结构
1．编一个华氏温度与摄氏温度之间转换的程序，要求用按钮实现转换。既单击“华氏转摄氏”按钮，则将华氏温度转换为摄氏温度；同样，单击“摄氏转华氏”按钮，则将摄氏温度转换为华氏温度。
代码：
Private Sub Command1_Click()
Dim f!, c!
f = Val(Text1.Text)
c = 5 / 9 * (f - 32)
Text2.Text = Format(c, "0.00")
End Sub
Private Sub Command2_Click()
Dim f!, c!
c = Val(Text2.Text)
f = 9 / 5 * c + 32
Text1.Text = Format(f, "0.00")
End Sub
2．（1）运行界面
（2）参考代码
Private Sub Command1_Click()
r = Text1.Text
Label1.Caption = Format(3.14 * r * r, ".00")
Text1.SetFocus
End Sub
Private Sub Command2_Click()
r = Val(Text1.Text)
Label2.Caption = Format(3.14 * 2 * r, ".00")
Text1.SetFocus
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then
If Not IsNumeric(Text1) Then
MsgBox "输入有误,请重输入"
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End If
End If
End Sub
Private Sub Text1_LostFocus()
If Not IsNumeric(Text1) Then
MsgBox "输入有非数字字符,请重新输入", , "2-2" Text1.SetFocus
Text1.SelStart = 0
End If
End Sub
3．我国有13亿人口，按人口增长0.8%计算，多少年后我国人口超过26亿。
（1）运行界面
（2）参考代码
Private Sub Command1_Click()
a = Int(Log(2) / (Log(1 + 0.008))) + 1
Text1.Text = a & "年后,我国人口超过26亿"
End Sub
4．输入一字符串，分别调用Ucase、Len函数将其转换成大写字母并显示其字符串长度（1）运行界面
（2）参考代码
Private Sub Command1_Click()
Text3.Text = Len(Text1.Text)
End Sub
5．随机产生一个3位正整数，然后逆序输出，产生的随机数与逆序数同时显示。例如，产生735，输出是537
（1）运行界面
（2）参考代码：
Private Sub Command1_Click()
x = Int((899 + 1) * Rnd + 100)
a = x \ 100
b = (x Mod 100) \ 10
c = x Mo
d 10
Text1.Text = x
Text2.Text = c * 100 + b * 10 + a
End Sub
6．使用Mid、Left、Right函数。在Text1文本框中输入一字符串，在label1、Label2、Label3中显示如图的效果。
（1）运行界面
（2）参考代码：
Private Sub Form_Click() Text1.FontSize = 16 Label1.FontSize = 16 Label2.FontSize = 16 Label3.FontSize = 16
Text1.Text = "VisualBasic 程序设计教程(第三版)" Label1.Caption = Left(Text1.Text, 11) Label2.Caption = Mid(Text1.Text, 12, 6) Label3.Caption = Right(Text1.Text, 5) End Sub
7． Print 方法练习，显示字符图形。 （1） 运行界面
（2）参考代码： （a ）
Private Sub Command1_Click() Print
For i = 1 To 5
Print Tab(13 - 2 * i); String(2 * i - 1, "★"); Spc(22 - 4 * i); String(2 * i - 1, "★") Next i End Sub
Private Sub Command2_Click() Form1.Cls End Sub （b ）
Private Sub Command1_Click() Print
For i = 1 To 5
Print Tab(13 - 2 * i); String(2 * i - 1, "★"); String(11 - 2 * i, "☆"); String(2 * i - 1, "★") Next i End Sub
Private Sub Command2_Click()
Form1.Cls
End Sub
8．用InputBox输入一个正实数，用Print方法在一行上显示出它的平方和平方根、立方和立方根，每个数保留三位小数，其间有间隔。
(1)运行界面
(2)参考代码：
Private Sub Command1_Click()
x = Val(InputBox("输入一个正实数"))
Form1.Print Format(x * x, ".000"); Spc(5); Format(Sqr(x), ".000"); Spc(5); Format(x * x * x, ".000"); Spc(5); Format(x ^ (1 / 3), ".000")
End Sub
实验C 选择结构
一、实验目的
1 掌握逻辑表达式的正确书写形式
2 掌握单分支与双分支条件语句的使用。
3 掌握多分支条件语句的使用。
4 掌握情况语句的使用及其与多分支条件语句之间的区别。
二、实验内容
1、在购买某物品时，若所标明的价钱x在下述范围内，所付钱y按对应所扣支付：
x,x ＜1000
0.9x, 1000≤x＜2000
y=
0.8x,2000≤x＜3000
0.7x,x≥3000
提示：
此题用多分支结构实现，注意计算公式和条件表达式的正确书写。
实验目的：掌握多边if语句的正确使用
实验步骤：
1 新建新工程
2 要求单击窗体提示物品的价钱，最后在窗体上显示所付钱y
代码如下：
Private Sub Form_Click()
Dim x As Single, y As Single
x = Val(InputBox("请输入物品价钱："))
If x < 1000 Then
y = x
ElseIf x >= 1000 And x < 2000 Then
y = 0.9 * x
ElseIf x >= 2000 And x < 3000 Then
y = 0.8 * x
ElseIf x >= 3000 Then
y = 0.7 * x
End If
Print "所付钱为："; y
End Sub
2、编一程序输入上网的时间并计算上网费用，计算的方法如下：
基数30元，上网时间＜10小时
每小时2.5元，上网时间10~50小时
费用=
每小时2元，上网时间≥50小时
同时为了鼓励多上网，每月收费最多不超过150元。
提示：首先利用多分支条件更具三个时间段算出费用，然后再用if语句对超过150元的费用设置为150元。
略：提示和第一题类似
3、输入x,y,z三个数，按从大到小的次序显示。
实验目的：掌握单边或嵌套if语句的使用
实验步骤：
1 新建工程
2 代码如下：
Private Sub Form_click()
Dim x As Integer, b As Integer, z As Integer, d As Integer
dim x!,y!,z!
x = InputBox("请输入第一个数")
y = InputBox("请输入第二个数")
z = InputBox("请输入第三个数")
Print "排序前"; x; Spc(5); y; Spc(5); z
If x < y Then
d = x: x = y: y = d
End If
If y < z Then
d = y: y = z: z = d
End If
If x < y Then
d = x: x = y: y = d
End If
Print "排序后"; x; Spc(5); y; Spc(5); z
End Sub
4、利用实验c的思想，随机产生3个整数，按从小到大的顺序显示。
Private Sub Form_click()
Dim x As Integer, y As Integer, z As Integer, d As Integer
Randomize
x = Int(Rnd * 101): y = Int(Rnd * 101): z = Int(Rnd * 101)
Print "排序前"; x; Spc(5); y; Spc(5); z
If x > y Then
d = x: x = y: y = d
End If
If y > z Then
d = y: y = z: z = d
End If
If x > y Then
d = x: x = y: y = d
End If
Print "排序后"; x; Spc(5); y; Spc(5); z
End Sub
5、利用计算机解决古代数学问题“鸡兔同笼问题”。即已知在同一笼子里有总数为m只鸡和兔，鸡和兔的总脚数为n只，求鸡和兔各有多少只？
实验目的：掌握if语句使用，分析解题中出现的可能情况，避免出现不合理的结果，提高解决实际问题的能力。
实验步骤：
1 创建新工程界面如上
2 代码如下：
Private Sub Form_Load()
Label1.Caption = "输入总只数"
Label2.Caption = "输入总脚数"
Label3.Caption = "求得鸡数"
Label4.Caption = "求得兔数"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
Private Sub Form_Load()
Label1.Caption = "输入总只数"
Label2.Caption = "输入总脚数"
Label3.Caption = "求得鸡数"
Label4.Caption = "求得兔数"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
Private Sub Text2_LostFocus()
Dim m%, n%, y%
m = Val(Text1)
n = Val(Text2)
If n Mod 2 <> 0 Then
MsgBox ("脚数必定为偶数")
Text2 = ""
Text2.SetFocus
Else
y = n / 2 - m
If y < 0 Then
MsgBox "脚数必须>=2倍的头数,", vbOKOnly, "sy2 - 5"
Text2 = ""
Text2.SetFocus
Else
x = m - y
Text3 = x
Text4 = y
End If
End If
End Sub
6、输入一元二次方程ax2+bx+c=0的系数a,b,c,计算并输出一元二次方程的连个根x1，x2. 实验步骤：
1 创建一个新的工程
2 代码如下：
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a <> 0 Then
delta = b ^ 2 - 4 * a * c
re = -b / (2 * a)
If delta > 0 Then
sb = Sqr(delta) / (2 * a)
Text4.Text = Str(re + sb)
Text5.Text = Str(re - sb)
ElseIf delta = 0 Then
Text4.Text = Str(re)
Text5.Text = Str(re)
Else
xb = Sqr(-delta) / (2 * a)
Text4.Text = Str(re) & "+" & Str(xb) & "i"
Text5.Text = Str(re) & "-" & Str(xb) & "i"
End If
Else
If b <> 0 Then
ygz = -b / c
Text4.Text = Str(ygz)
Else
Text4.Text = "方程无意义！"
End If
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Text1 = "": Text2 = ""
Text3 = "": Text4 = ""
Text5 = ""
End Sub
7、编一模拟袖珍计算器的完整程序，。要求：输入两个操作数和一个操作符，根据操作符决定所做的运算。
实验目的：掌握select case语句的使用
1 新建一个工程
2 代码如下：
Private Sub Command1_Click()
op = Trim(Text3.Text)
Select Case op
Case "+"
Text4.Text = Val(Text1) + Val(Text2)
Case "-"
Text4.Text = Val(Text1) - Val(Text2)
Case "*"
Text4.Text = Val(Text1) * Val(Text2)
Case "/"
If Val(Text2) = 0 Then
MsgBox "除数不能是零！，重新输入"
Text2 = ""
Text2.SetFocus
Else
Text4.Text = Val(Text1) / Val(Text2)
End If
End Select
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Text1.Text = "": Text2.Text = ""
Text3.Text = "": Text4.Text = ""
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Text1.Text = "": Text2.Text = ""
Text3.Text = "": Text4.Text = ""
End Sub
8、输入一个数字（1~7），分别通过select语句和choose函数两种方法用英文显示对应的星期一~星期日
略:参考书上例子4.10
实验D循环结构
一、实验目的
1 掌握for语句的使用
2 掌握Do语句的各种形式的使用
3 掌握如何控制循环条件，防止死循环或不循环
二、实验内容
实验目的：掌握单循环结构以及tab、trim函数的使用。
1、利用单循环结构显示如图所示的界面
实验步骤：
1 创建一个新的工程
2 代码如下
Private Sub Form_Click()
For i = 1 To 9
Print Tab(10 - i); String(2 * i - 1, Trim(Str(i)))
Next i
End Sub
2、用单循环实现如图的界面
实验步骤
1 创建一个新的工程
2 主要代码如下：
For i = 1 To 9
Print Tab(i); String(2 * (10 - i), Trim(Chr(i + 64)))
Next i
3、计算s=1+1/2+1/4+1/7+1/11+1/16+1/22+1/29+…..当第i项的值<10-4时结束。
提示：
找出规律，第i项的分母是前一项的分母加i开始计数。可利用for循环结构的循环控制变量获得项数，当某项达到规定的精度时退出循环。
实验目的：利用循环，计算部分级数和。
实验步骤：
1 创建一个新的工程，窗体布局如右图
2 代码如下：
Private Sub Command1_Click()
Dim s!, t!, i&
s = 1: t = 1: i = i
Do While 1 / t > 0.00001
t = t + i
s = s + 1 / t
i = i + 1
Loop
Print "Do while结构"; s, i - 1; "项"
End Sub
Private Sub Command2_Click()
Dim s!, t!, i&
s = 1: t = 1
For i = 1 To 100000
t = t + i
s = s + 1 / t
If 1 / t < 0.00001 Then Exit For Next i
Print "for 结构"; s, i; "项"
End Sub
4、计算π的近似值，π的计算公式为：π=
2222
246(2) 2....
133557(21)(21)
n
n n
?????
???-?+
实验步骤：
1 新建一个工程
2 代码如下：注意溢出问题
Private Sub Form_Click()
Dim i As Long, s As Double
s = 2
n% = Val(InputBox("输入n的值："))
For i = 1 To n
s = s * (((2 * i) ^ 2) / ((2 * i - 1) * (2 * i + 1)))
Next i
Print "当n为："; n; "时计算结果为"; s
End Sub
5、求sn=a+aa+aaa+aaaa+....+aaa(n个a)，其中a是一个随机数产生的1~9（包括1，9）中的一个正整数，n是一个随机产生的5~10（包括5，10）中的一个数。
实验目的：学会根据问题的要求找规律、写通项；掌握循环的正确使用。
实验步骤：
1 新建一个工程
2 代码如下：
Private Sub Form_Click()
Dim s!, t!, i!, a%, n%
a = Int(Rnd * 9 + 1)
n = Int(Rnd * 6 + 5)
Print "a=" & a; "n=" & n
t = 0: s = 0
For i = 1 To n
t = t * 10 + a
s = s + t
Print t;
Next i
Print "s="; s
End Sub
6、编一程序，显示出所有的水仙花数。所谓水仙花数，是指一个3位数，其各位数字立方
和等于数字本身。
提示：
解该题的方法有两种：
1 利用三重循环，将三个数连接成一个3位数进行判断。 实验步骤： 1 新建一个工程
2 代码如下：
Private Sub Form_Click() Dim i%, j%, k% For i = 1 To 9 For j = 0 To 9 For k = 0 To 9
a = i ^ 3 + j ^ 3 + k ^ 3
b = i & j & k
If a = Val(b) Then
Print b & "是水仙花数" End If Next k Next j Next i End Sub
2 利用单循环将一个3位数逐位分离后进行判断。 实验步骤： 1 新建一个工程 2 代码如下：
Private Sub Form_Click() Form1.FontSize = 24 For n = 100 To 999
a = Int(n / 100) 'a\100
b = Int((n - a * 100) / 10) '(a mod 100)\10
c = n - (a * 100 + b * 10) 'a mo
d 10 p = a ^ 3 + b ^ 3 + c ^ 3 If p = n Then Print p Next n End Sub
7、用迭代法求x=3a .求立方根的迭代公式为：12233i i i
a
x x x +=
+迭代到 5110i i x x ε-+-<=为止，1i x +为方程的近似解。
实验目的：利用迭代公式求方程的近似解。
实验步骤： 1 新建一个工程
2 代码如下：
Private Sub Form_Click()
Dim a!, x0!, x1!
a = 27
x0 = 2
i = 0
Do
i = i + 1
x1 = 2 * x0 / 3 + a / (3 * x0 * x0)
If Abs(x1 - x0) < 0.00001 Then Exit Do
x0 = x1
Loop
Print "迭代结果为："; x1; "迭代次数为："; i
Print "利用乘方运算结果为："; a ^ (1 / 3)
End Sub
8、一个富翁视图与陌生人做一笔还钱生意，还钱规则为：陌生人每天给富翁10万元钱，直到满一个月（30天）；而符文第一天给陌生人1分钱，第二天2分，第三天4分，….富翁每天给陌生人的钱是前一天的两倍，直到满一个月。分别显示富翁给陌生人的钱和陌生人给富翁的钱为多少？
实验步骤：参考答案
1 新建一个工程
2 代码如下：
Private Sub Form_Click()
Print "富翁给陌生人的钱为："
Dim i As Integer, x As Single, s As Single
i = 0: x = 0.01: s = 0.01
While i < 30
x = x * 2
s = s + x
i = i + 1
Wend
Print s * 100
Print "陌生人给富翁的钱为：" & 100000 * 30
End Sub
9、用计算机安排考试日程。期末某专业在周一~周六的6天时间内要考x，y，z三门课程，考试顺序为先考x，然后考y，最后考z，规定一天只能考一门，且z课程只能安排在周五或周六考。编写程序安排考试日程（即x，y，z三门课程各在哪一天考），要求列出满足条件的所有方案。
实验步骤：
实验步骤：参考答案
1 新建一个工程
2 代码如下：
Private Sub Form_Click()
Dim i%, j%, k%
For i = 1 To 6
For j = 1 To 6
For k = 5 To 6
If i < j And j < k Then
Print "x在周" & i, "y在周" & j, "z在周" & k
End If
Next k
Next j
Next i
End Sub
VB实验指导与练习题实验部分的参考答案: 实验4 4-1: 2*pi*r Pi*r*r 4-3: chr(64+n) 4-4: x mod 10 x \10 mod 10 x\100 4-5: mid(s,i,1)=Lcase(t) 实验5 5-1: a+b+c+d Sum/4 5-2: (4*h-f)/2 (f-2*h)/2 5-4: sec\3600\24 Sec mod (1& 24*3600) mod 3600 mod 60 5-5: 0、5*g*t*t+v0*t 实验6 6-1: left(text1,text1、selstart) & text2 & right(text1, len(text1) – text1、selstart) 6-2: timer1、enabled=true Timer1、enabled=false
6-3: shape2、left=shape2、left +d *50 6-5: a & check2、caption 6-6: list1、listcount -1 6-7: 1000 List1、list(i) 6-8: text1 实验7 7-1: n=n-3500 n-y text1、setfocus 7-2: a=a & c 7-3: sum +j Sum=1250 7-4: m=n n=r r= m mod n 7-5: if a mod i=0 then exit for 7-6: text1 S2 & mid (s1,k,1) S2=”” 7-7: 2 n\factor
factor+1 7-8: n 7-9: sum=0 s & i & “ +” list1、clear 7-10: mid(text1, i, 1) 实验8 8-1:a(i)=a(16-i) a(16-i)=temp 8-2: a(i-2)+a(i+1)+1 Text2 & vbcrlf 8-3: picture1、print i=1 to 5 sum=sum+a(I,j) next i sum+a(i,j)+a(i,6-i) not ( i>1 and i<5 or j>1 and j<5 ) 8-4: text1 & str(a(i)) If a(i) < min then min=a(i) 8-5: (a(i)\10) * (b(i)\10) “sum=”;sum
所有填空题 1、VB6.0是运行于______操作系统环境下的一个快速可视化程序开发工具，用它进行程序设计，有两个基本的特点，即______和______。 答案：1：Windows9x/NT#Windows9x/NT#Windows9x\NT#Windows9x\NT#Windows9x#Windows NT#Windows9x#WindowsNT#windows9x/NT#windows9x/NT#windows9x\NT#windows9x\NT#windows9x#windows NT#windows9x#windowsNT 2：事件驱动编程#可视化设计 3：可视化设计#事件驱动编程 等级：1难度：1 知识点：VB知识点/VB简介 2、VB是一种面向______的可视化编程语言，它采用______的编程机制。 答案：1：对象 2：事件驱动 等级：1难度：1 知识点：VB知识点/VB的编程环境 3、在VB集成开发环境中，运行应用程序的方法有两种：______或______。 答案：1：编译运行模式#解释运行模式#编译运行#解释运行 2：解释运行模式#编译运行模式#解释运行#编译运行 等级：1难度：1 知识点：VB知识点/VB简介 4、VB的对象主要分为______和______两大类。 答案：1：窗体#控件 2：控件#窗体 等级：1难度：1 知识点：VB知识点/VB的对象、属性、方法和事件 5、VB中，用来描述一个对象的状态或特征的量称之为对象的______。 答案：1：属性 等级：1难度：1 知识点：VB知识点/VB的对象、属性、方法和事件 6、在VB中，最基本的对象是______。 答案：1：窗体 等级：1难度：1 知识点：VB知识点/VB的对象、属性、方法和事件 7、一个对象响应某个事件后所执行的操作是通过一段程序代码来实现，这段程序代码称______。 答案：1：事件过程 等级：1难度：1
二、选择题 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-5 CDCCB 640ABDCD 11-15 CCBBD 16-20 DBCBA 二多选 1 ABCE 2CE 3 BCE 4 ADE 5 ABCD 6ABCDE 7ACD8ABCDE 9 ABC 10ABCDE 三判断 1-5 X V X V V6-10 V X V V V 四填空 1 x=int(Rnd*101)End If avg=s/8 2 i=l to 10Right(str(i),l)或Right(str(i mod 10)) 3 m*n/GCD(m,n)GCD(b, a mod b) 4 Exit For i & “是素数”Next i 五阅读程序 1-4 DDCB 六程序设计 1 Option Base 1 Private Sub Form_click() Dim a( 10) Cis createdata a() sort a()
Fori= ITo 10 Print a(i); Next i End Sub Sub createdata(a()) Fori = ITo 10 a(i) = Int(Rnd * 101) Next i End Sub Sub sort(a()) For i = 1 To 9 Forj = 1 To 10-i If a(j) > a(j + l)Then t = a(j): a(j) = a(j + 1): a(j + 1) = t End If Next j Next i End Sub 2 Private Type ks no As String * 8 Bscj As Integer Sjcj As Integer End Type Dim student As ks Private Sub Form_Load() Open "c:\ksxx.dat" For Random As#l Len = Len(student) End Sub Private Sub cmdadd_Click() student.no = Text 1.Text student.Bscj = Val(Text2.Text) student.Sjcj = Vai (Tex t3.Text) lastrecord = LOF( 1) / Len(student) + 1 Put # 1, lastrecord, student Textl.Text = Text2.Text = ”” Text3.Text =" End Sub Private Sub cmdquit_Click() Close #1 End End Sub
计算机程序设计基础（VB）实验指导书主编：刘华伟 单位：信息工程学院
实验报告要求：每次实验要求写实验报告（word电子版），包括实验名称，实验目的，实验内容，所有主要界面（需把界面图贴上,用截图工具）和所有源程序（将代码复制粘贴到word报告里），每次上机课后的周五理论课对上机题目进行讲解，每次上机实验报告要求在上机内结束前提交，如果没做完最迟当天内提交给教师信箱458007844@https://www.doczj.com/doc/742816288.html, 只能用自己的邮箱在这个时间段提交。 提交格式：邮件名和word文件名均为： 公141班张三000000第1次作业 第一次上机课要做实验指导书中前两次实验的内容，将两次上机的实验报告都写在同一个word文档里提交。以后每次上机均做一次实验的内容。
实验一VB6.0环境和程序设计初步 一、实验目的 1．学会使用VB开发环境。 2．学会建立、编辑、运行一个简单的VB应用程序的全过程。 3．掌握变量的概念及使用。 4．通过程序实践结合课堂例子，理解类、对象的概念，掌握属性、事件、方法的应用。 二、实验内容： 1．熟悉VB开发环境的标题栏、菜单栏、工具栏、窗体窗口、属性窗口、工程资源管理器窗口、代码窗口、立即窗口、窗体布局窗口、工具箱窗口的位置以及用法。（此题不需要写实验报告） 2．编写一个四则运算的功能，在界面上输入两个数，并设置加减乘除四个按钮，点击不同的按钮，显示不同的运算结果。 步骤： （1）建立用户界面的对象。 （2）对象属性的设置。 （3）对象事件过程及编程。 （4）保存和运行程序
实验二选择结构程序设计 一、实验目的 1．掌握逻辑表达式的正确书写形式。 2．掌握单分支与双分支语句的使用。 3．掌握多分支条件语句的使用。 4．掌握情况语句的使用与多分支条件语句的区别。 二、实验内容 1．P272实验C的1，2题，界面按自己思路设计。其中第1题要求用两种方法实现。 2．在界面上输入4个数，求最大值和最小值并显示，要求用两种方法实现。提示：先编写求最大值的程序，然后再编写求最小值的程序。 3．输入三门功课的成绩，评定某个学生是否得奖学金。 评奖学金标准如下： 平均分大于95分或两门100分第三门不低于80分。
第1章Visual basic概述 一、VB是在Windows平台下，用于开发和创建具有图形用户界面的应用程序的工具。 二、VB是面向对象的程序设计语言；工作方式为事件驱动/消息驱动。 1．对象 对象是动作体的逻辑模型，是人们可控制的某种东西，应用程序的每个窗体和窗体上的 种种控件都是VB的对象 2．属性 属性指对象的特性。 3．方法 方法指对象可以进行的动作或行为。 4．事件 事件是指能被对象所识别的动作。 5．事件驱动 只有在事件发生时程序才会运行。 6．工程 工程是应用程序文件的集合，一个工程一般会包含下列文件，如表1—l所示。 表1—1 应用程序文件类型 文件类型说明 工程文件(．vbp) 它是与该工程有关的全部文件和对象的清单，该文件是必选项 窗体文件(．frm) 它包含事件过程，以及该窗体及窗体上的各个控件对象的属性设置以及相关的说明，该文件是必选项 二进制数据文件(．frx) 当窗体中含有二进制属性(如图片或图标)时，该文件将自动产生 标准模块文件(．bas) 它包含可以被任何窗体或对象调用的过程程序代码，该文件是可选项 类模块文件(．cls) 该文件是可选项包含ActiveX控件的文件(．ocx) 该文件是可选项
第2章创建用户界面 知识点概括 1．用户界面 用户界面是应用程序中最重要的部分，是程序与用户进行交互的桥梁，标准的Windows 应用程序界面都是由窗口、菜单条、各种按钮、文本框、列表框等对象构成的。 2．窗体 窗体是包容用户界面或对话框所需的各种控件对象的容器。 在创建一个新的工程时，默认的第一个窗体即为启动窗体。 3．控件 控件是与用户进行交互的可视化部件，向窗体上添加控件应在窗体编辑器中进行。 4．命令菜单 命令菜单是应用程序窗口的基本组成元素之一，它由菜单条、菜单、菜单项、子菜单、弹出式菜单组成，可以通过VB提供的菜单编辑器创建程序菜单。 （1）连字符（—） （2）& 5．设计用户界面的步骤 (1)确定窗体的大小和位置。 (2)根据程序的功能和要求，添加所需的控件。 (3)合理地分布控件的位置与大小。 (4)设置各个对象的属性。 6．窗体及常用控件的常用属性、事件、方法 熟悉各对象的常用属性、事件和方法，对于创建应用程序有着举足轻重的作用，表2—1给出了窗体及常用控件的常用属性、事件以及方法使用说明。 表2—1 窗体及常用控件的常用居住、事件以及方法一览表 对象名称说明 Name 设置对象在程序代码中的引用名 通用属性Caption 设置对象的标题栏中或图标下面的文本 Font 设置文本的字体、字型、字号等 left 设置对象的左边界距容器坐标系纵轴的距离 Top 设置对象的上边界距容器坐标系横轴的距离 Height 设置对象的高度 Width 设置对象的宽度 Enabled 设置对象是否被激活 通用属性Visible 设置对象是否可见 BackColor 设置对象的背景色 ForeColor 设置对象的前景色 Index 设置控件在控件数组中的标识号 TabInfex 设置窗体中的对象响应[Tab]键的顺序 TabStop 设置用户是否可以使用[Tab] 键来选定对象 Style 设置控件的外观 Boderstyle 设置窗体的边框风格
程序设计 〖第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)
第五章 实验5-1 知识点 1．数组与普通变量得区别在于数组是一组具有相同类型的有序变量的集合；而变量之间相互独立，没有内在的联系，并与其所在的位置无关。 2．VB中可以通过Dim,private,public,static这几个语句定义数组，他们之间得区别在于所定义的数组作用域不同。Static语句用于过程中，定义静态数组；private语句用于模块的通用声明处，定义模块级数组；public语句用于标准模块的声明处，定义全局数组；Dim 语句既可以用于过程中，定义局部数组，也可以用于模块的通用声明处，定义模块级数组。3．语句option base 1 Dim b(3) as integer 定义了3个数组元素，分别是b(1)，b(2)和b(3)，这两个b(3)的区别在于前者是定义数组使用的数组说明符，后者是数组元素b(3). 4. VB中的二维数组在存放的时候是按列_存储的。 5.常见的数组函数及语句有哪些？他们的功能各是什么？ Lbound函数，用于返回数组某维的维下界的值； Ubound函数，用于返回数组某维的维下界的值； Erase语句，功能有二，一是重新初始化固定大小数组的元素，二是释放动态数组的存储空间 Option base n 语句，用于说明数组的维下界从n开始计数 For-each-next语句，用于数组或对象集合中的每个元素重复执行一组语句。 6.For-each-next语句与For-next语句的区别在于前者专门用于数组或对象集合中的每个元素，而后者多用于普通变量。 课前练习 1.①13 ②6 ③15 ④105 ⑤9 ⑥44 2．option base语句和redim语句。 3.33 4. 12 5 实验5-2 知识点 1.数组元素 2.数组元素的本质是变量，但是与之不同的是数组元素是有序的，通过改变下标就可以访问不同的数组元素。 3.数组元素赋值的方法有： ①用赋值语句给数组元素赋值②通过循环逐一给数组元素赋值③用inputbox函数给数组元素赋值④用array函数给数组赋值 课前练习 1. D 2.LSP HXF BGJ 3. 1 5 9
一:基础知识 对象的有关概念l 1. 对象Object：VB中常用的对象有：窗体、控件等。 2. 对象的三要素 （1）属性Property：用来描述和反映对象外部特征的参数。 （2）方法Method：允许其他对象与之交互的方式，表明一个对象所具有的能力。 （3）事件Event：响应对象的动作称为事件，它发生在用户与应用程序交互时。如单击控件、鼠标移动、键盘按下等。 事件驱动Event Driven：VB为窗体和大多数控件都规定了一组事件，当应用程序被启动后，VB随时准备捕获各种事件。一旦发生了某个事件，VB就会执行与该事件相联系的事件过程；执行完后，VB等待下一个事件的发生。 VB程序的执行步骤如下：l (1)启动应用程序，装载和显示窗体； (2）窗体（或窗体上的控件）等待事件的发生； （3）事件发生时，执行对应的事件过程； （4）重复执行步骤（2）和（3）； （5）直到遇到END结束语句结束程序的运行；或按“结束”强行停止程序的运行。 VB集成开发环境l 1. 主窗口 应用程序窗口，由标题栏、菜单栏和工具栏组成。 2. 窗体(form)窗口 设计VB程序的界面。 3. 代码(code)窗口 编辑窗体、标准模块中的代码。 4. 属性(properties)窗口 所有窗体或控件的属性设置。 5. 工程资源管理器(project expror)窗口 保存一个应用程序所有的文件。 6. 工具箱(toolbox)窗口 显示各种控件的制作工具，供用户在窗体上设计 建立VB程序的步骤l 1. 建立用户界面的对象，并设置对象属性； 2. 对象事件过程及编程； 3. 程序运行和调试； 4. 保存文件： 窗体frm格式和vb工程vbp格式 VB 编码基础l 1. VB代码不区分字母的大小写 系统保留字自动转换每个单词的首字母大写； 用户自定义行以第一次为准。 2. 语句书写自由 一行可书写几句语句,之间用冒号分隔； 一句语句可分若干行书写，用续行符_（空格+下画线）连接一行<=255个字符。
一、程序设计 '【程序设计】 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
程序代码 Private Sub Command1_Click() End Sub Private Sub Command2_Click() = True End Sub Private Sub Command3_Click() = True End Sub Private Sub Command4_Click() = 10 = False = False End Sub 初始窗口：单机放大之后窗口：单机下划线之后窗口：单击加粗之后窗口： 自测2 单击还原之后窗口：
Private Sub Command1_Click() Label1 = "visual basic" Text1 = " 程序设计题" End Sub Private Sub Command2_Click() Text1 = "visual basic" Label1 = " 程序设计题" End Sub 初始窗口：单击显示之后窗口：单击交换之后的窗口：自测题3 Private Sub Command1_Click() End Sub Private Sub Command2_Click() = + 30 End Sub = + 20 = 1 初始窗口：
单击缩小两倍之后的窗口：单击向右下角移动之后的窗口：自测题4 程序代码 Private Sub Command1_Click() = "VB 学习" Print"简单的VB程序设计" End Sub Private Sub Command2_Click() Cls End Sub Private Sub Command3_Click() End End Sub Private Sub Command3_Click() End End Sub 初始化窗口：单击显示之后的窗口：单击清除之后的窗口： 自测题5 单击退出之后的窗口：
注意：其中Chr（）、Str（）、Mid（）三个函数的值为字符串型，结果要加双引号（1）赋值语句： 块If语句： 注意：行if语句只有一行。而块If语句写在多行上，最后需要EndIF结尾
表格信息的加工 （一）了解工作表概念，会建立工作表，掌握工作表中的基本操作（复制、移动、插入、删除等）。 1.数据的输入（1）纯数字符号的输入:要在数字符号前加单引号，如字符0021，输入为’0021 分数的输入：先输入一个零(0)，然后输入一个空格，最后再输入相应的分数。（2）单元格内出现“####”号，是因为单元格的宽度不够，只需要选定该单元格，再在菜单栏上选择“格式”/“列”/“最适合的列宽”即可去掉####号。 2．单元格表示方法：列号（英文字母）+行号（数字），如第6行第6列的单元格为F6 单元格区域表示方法：如A3到A9区域表示为A3:A6，共A3、A4、A5、A6四个单元格（二）能进行表格数据的计算（利用公式或函数进行计算）：求和、求平均、求最值、计数。 1.用公式计算数据（输入公式的标志是输入一个等号）常用函数的应用：SUM（求和函数），A VERAGE（求平均值函数），Max（求最大值函数），min（求最小值函数），Count（计数函数）“= SUM（C3:C5）”表示求C3到C5单元格区域的数据的和。等同于“=C3+C4+C5”“=Average（C3:C5）”表示求C3:C5单元格区域数据的平均值“=Max（C3:C5）”表示求C3:C5单元格区域数据的最大值“=Count （C3:C5）”表示求C3:C5区域中包含数字的单元格个数以及参数列表中数字的个数。假设C3:C5中的数据分别为12、0、a，则应用函数“=count（C3:C5）”后得到的结果是2；如果函数变为“=count（C3:C5，5，3）”则得到结果为4 2.公式的复制：可以完成类似的计算（操作方法一：选中应用了公式的单元格后，单击“编辑”菜单中的“复制”命令，然后选择需要完成类似计算的单元格，单击“编辑”菜单中的“粘贴”；操作方法二：选中应用了公式的单元格后，鼠标指针指向右下角的小方块，变成黑十字形时按住左键不放拖动到目标单元格。两种方法均可实现公式的复制）（三）对表格数据进行排序、筛选和分类汇总。（四）根据表格中的数据建立柱形图、饼图、折线图等图表。（这三种图表的类型要了解）（五）根据图表对表格数据进行合理分析。
第一套试题 一、选择题（每题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 )
Visual Basic 程序设计学习与实验指导答案 上篇学习指导 第1章Visual Basic 概述 1.事件 2.查看对象 3.工程 4.视图属性窗口 5.窗体编辑器 第2章面向对象程序设计初步 1.控件 2.事件 3.类属性 4.属性 5.略 https://www.doczj.com/doc/742816288.html, 第3章Visual Basic 语言基础 1.(a*sin(30/180*3.14)+c*(log(b)/log(10)))/((Abs(d)+1)*(e+f))+1
2.mod 3.X=Int(X) And Y=Int(Y) And X*Y>0 4. 4.Y Mod 4=0 And Y Mod 100<>0 Or Y Mod 400=0 5.x=Int((99-10+1)*Rnd+10) 6.0 “” 7.空格 8.6，845.30 9. （1）8 （2）1 （3）abcd （4）出错，类型不匹配 （5）False （6）2008-6-29 （7）I likeVB （8）4 （9）4 4 （10）3 4 （11）10 -10 （12）-1 （13）aa （14）3 （15）0 （16）1 （17）C （18）5 （19）8 （20）34.54 （21）中国 （22）上海 （23）VISUAL BASIC （24）visual basic 10. （1）x<-100 or x>100 （2）a=Int(a) And b =Int(b) Or a<0 And b<0 （3）x<=y or x>=z （4）a>0 And a<>Int(a) （5）a=0 xor b=0 （6）Len(S)<10 （7）UCase(S)=S （8）Left(S,1)=”a” And Right(S,1)=”a” （9）Instr(S,”@”)<>0 （10）Trim(S)=S （11）Date=#8/8/2008#
V B知识点总结 集团文件版本号：（M928-T898-M248-WU2669-I2896-DQ586-M1988）
VB知识点总结大全 第一章VB入门（*） 1.2.2 主窗口 1．标题栏 三种工作模式 （1）设计模式：可进行界面设计、代码编制 （2）运行模式：不可编辑界面、代码 （3）中断模式：不可编辑界面，可以编辑代码 2．菜单栏 3．工具栏 1.2.3 设计窗口 1．窗体设计窗口 2．代码设计窗口 （1）打开方式： 1.单击菜单栏的视图——选择代码窗口 2.双击窗体、控件 3.单击工程资源管理器窗口的“查看代码” （2）主要内容 1.对象列表框：显示所选对象的名称。列出窗体所有可用的对象名。 2.过程列表框：列出所有对象列表框中对象的事件过程或自定 义过程的名称。
由四部分组成： 1.对象列表框 2.属性排列方式：按字母排列、按分类排列 3.属性列表框：左边为属性名，右边为相应的属性值 4.属性含义说明：显示所选属性的含义 1.2.5 工程资源管理器窗口 （1）3个按钮 1.“查看代码”：切换到代码窗口，显示和编辑代码 2.“查看对象”：切换到窗体窗口，显示和编辑对象 3.“切换文件夹”：切换到文件夹显示方式 （2）包含两种类型的文件 1.窗体文件（.frm文件）：储存窗体上所有控件对象和有关的属 性、对象相应的事件过程、程序代码。 2.标准模块文件（.bas文件）：储存所有模块级变量和用户定义 的通用过程，该类型可选。 1.2.6 工具箱窗口 一般由21个按钮形式的图标构成。除指针外的20个为标准控件（指针不是控件），每个也是一个类。如：文本类、图形类等。 1.3.1 建立一个应用程序的步骤 1.建立用户界面的对象 2.对象属性的设置 3.创建对象事件过程及编程
《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. 下面过程定义语句合法的是____________。
自测1 程序代码 Private Sub Command1_Click() Label1.FontSize = Label1.FontSize + 3 End Sub Private Sub Command2_Click() Label1.FontBold = True End Sub Private Sub Command3_Click() Label1.FontUnderline = True End Sub Private Sub Command4_Click() Label1.FontSize = 10 Label1.FontBold = False Label1.FontUnderline = False
— End Sub 初始窗口： 单机放大之后窗口： 单机下划线之后窗口：
单击加粗之后窗口： 单击还原之后窗口：
自测2 程序代码 Private Sub Command1_Click() Label1 = "visual basic" Text1 = "程序设计题" End Sub Private Sub Command2_Click() Text1 = "visual basic" Label1 = "程序设计题" End Sub 初始窗口：
单击显示之后窗口：
—单击交换之后的窗口： 自测题3 Private Sub Command1_Click() Label1.FontSize = Label1.FontSize * (0.5) End Sub Private Sub Command2_Click() Label1.Top = Label1.Top + 30 Label1.Width = Label1.Width + 20 Label1.Alignment = 1 End Sub
算法与程序设计 VB知识点 一、数据类型 Integer 整型 Long 长整型 Single 单精度实型 Double 双精度实型 String 字符型 二、常量与变量 1、常量的定义 Const 常量名 as 类型=表达式 2、变量的定义 Dim 变量名 as 类型 三、运算符 1、算术运算符 + - * / ^ \ mod 2、字符运算符 & + 3、关系运算符 >, >= , < , <= , <> , = 4、逻辑运算符 And not or 四、函数 1、sin(x) 2、cos(x) 3、fix(x) 4、int(x) 5、sqr(x) 6、abs(x) 五、赋值语句 格式： 变量=表达式 六、输入语句 变量=inputbox(““，““) 七、输出语句 Print 容 八、条件语句 1、If 条件 then 语句 2、If 条件 then 语句1 else 语句2 或者： 1、 If 条件 then 语句 End if 2、 If 条件 then 语句1 Else 语句2 End if 九、循环语句 1、for 循环变量=初值 to 终值 循环体 Next 循环变量 2、do while (until) 条件 循环体 Loop 或者 do 循环体 Loop while (until) 条件 第一课时
一、VB的简单介绍 VB是visual basic 的简称，是一种可视化的程序工具。 VB的界面介绍及相关控件和窗口的介绍： 1、控件工具箱（标签、文本框、按钮控件） 2、设计窗口 3、属性窗口 （强调标签的caption、font属性，文本框的text属性,按钮的caption、font 属性） 4、代码窗口
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 ……