实验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
Text1.SelLength = Len(Text1.Text)
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()
Text2.Text = UCase(Text1.Text)
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()
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()
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按对应所扣支付：
提示：
此题用多分支结构实现，注意计算公式和条件表达式的正确书写。
实验目的：掌握多边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、编一程序输入上网的时间并计算上网费用，计算的方法如下：
同时为了鼓励多上网，每月收费最多不超过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
第一章 答案： 一、单项选择题 1.B 2. C 3. D 4.D 5.D 6.D 7.D 8.C 9.B 10.B 11.A 12.D 13.B 14.C 二、判断题 1.T 2.T 3.F 4.F 5.F 6.T 7.T 8.T 9.T 10.T 11.T 第二章 一、单项选择题 1. B 2. D 3. A 4. D 5. B 6.A 7. D 8. D 9. D 10. A 11. A 12. A 13. C 14. C 15. A 16. C 17. A 18. D 19. A 20. D 21. B 22. C 23. B 24. A 25. B 26. A 27. C 28. D 29. D 30. B 31. C 32. D 33. B 34. C 35. C 36. C 37. C 38. D 39. C 40. A 41. D 二、判断题 1. True 2. True 3. False 4. False 5. False 6. False 7. False 第三章 一、单项选择题 1.A 2.D 3.D 4.B 5.B 6.D 7.C 8.D 9.B 10.B 11.D 12.D 13.C 14.D 15.A 16.C 17.B 二、判断题 1.T 2.F 3.T 4.T 5.F 6.F 7.F 8.F 9.F 10.F 11.T 12.F 13.F 14.T 15.F 16.T 17.T 18.F . 第四章 一、单项选择题 1.D 2.A 3.C 4.C 5.B 6.C 7.B 8.B 9.C 10.B 11.A 12.A 13.B 14.C 15.C 16.D 17.A 18.D 19.B 20.A 21.D 22.B 23.A 24.D 25.D 26.B 27.D 28.A 29.D 30.A 31.D 二、判断题 1.F 2.T 3.F 4.F 5.T 6.F 7.T 三、操作题 1.参考代码： Private Sub Command1_Click() Dim i As Integer, j As Integer, k As Integer Dim sum As Integer For i = 2 To 10000 sum = 0 For j = 1 To i / 2 k = i Mod j If 0 = k Then sum = sum + j End If Next j
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-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
实验教材实验一 1：单项选择题： A A C C C D C B B C 2：填空题： （1）.bas （2）.vbp，.frm （3）视图工具箱 （4）对象 （5）属性对象事件方法 （6）Windows （7）事件行为 （8）窗体模块 实验二 1：单项选择题： A D C C A B A B D C B B C B C B A B D C 2：基本运算题： （1）27 （2）3.33333333333333 （3）3 （4）0 （5）-3 （6）2 （7）ab33 （8）类型不匹配 （9）3 （10）AB3 实验三 1：单项选择题： B C B D C 2：填空题： （1）300 （2）321456 （3）Shanghai （4）6 7 6 （5）True （6）2+3=5 （7）”area=” 12.56 （8）VISUAL 实验四 1：单项选择题： C A A C A 2：填空题： （1）7 （2）3 5
（3）输入的数小于0 （4）3 （5）False （6）2010 is not leap year. 试验五 1：单项选择题： A C C A B A C C C B 2：填空题： （1）9 （2）①n ②1 （3）①Len(a) ②n\2 ③Mid(a,(n-i+1),1) ④Mid(a,(n-i+1),1) （4）①n Mod 3=1 And n Mod 5=1 And n Mod 7=1 ②While CountN<5 （5）Mid(c1,1,i) 实验六 1：单项选择题： D B D C D A C A D D 2：填空题： （1）30 （2）3 （3）①a(2) ②a(3) ③a(1) （4）①1 ②2 ③a(i)=a(6-i) （5）①i+j ②0 ③a(i,j) （6）①Print ②k ③a(k,j)=a(j,k) ④a(k,j); 实验七 1：单项选择题： A B B A C B 2：填空题： （1）15 （2）①Preserve a(n+1) ②a(i+1)=a(i) ③Exit For ④a(i+1)=m⑤0 to n+1 (或LBound(a) to UBound(a)) （3）d,c,b,a 实验八 1：单项选择题： C A D B D C A C B 2：填空题： （1）a=9 b=4 （2） 36 25 16 9 4 1 （3）①a ②UBound(b) ③
计算机程序设计基础（VB）实验指导书主编：刘华伟 单位：信息工程学院
实验报告要求：每次实验要求写实验报告（word电子版），包括实验名称，实验目的，实验内容，所有主要界面（需把界面图贴上,用截图工具）和所有源程序（将代码复制粘贴到word报告里），每次上机课后的周五理论课对上机题目进行讲解，每次上机实验报告要求在上机内结束前提交，如果没做完最迟当天内提交给教师信箱458007844@https://www.doczj.com/doc/703079049.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、完成实验A（P.259）中的第1、 2、 3、5题。 2、参照第2章例2.6，建立一个类似记事本的应用程序，提供：(1) 剪切、复制和粘贴的编辑操作；(2) 字体大小的格式设置；此外，再对记事本的应用程序的功能进行一点扩允。 1．完成在实验B 顺序结构程序。（P.262）中的第1、2 、4 、5.、6题 2．完成实验C 选择结构（P.266）中的第1、2、4、5题 3．用上面实验B的第二题和实验C的第二题完成下面的实验报告。 1、完成实验D循环结构（P.268）中的第1、3、4、6题，其中第1题利用单循环结构显示如图D.1(P.268)所示的界面,而后将图形改为倒三角形。 2、选做实验E数组（P.271）中的第1、2、3题中的任意二题 3、以实验D中的第4题和实验E中的做完的某一题完成下面的实验报告。 A．1 Private Sub Command1_Click() Label3 = Text1 End Sub A．2 Private Sub Form_Load() Timer1.Interval = 0 End Sub Private Sub Command1_Click() '自动 Timer1.Interval = 200 End Sub Private Sub Command2_Click() '手动 Timer1.Interval = 0 Call MyMove End Sub Private Sub Timer1_Timer() Call MyMove End Sub Sub MyMove() Label1.Move Label1.Left - 50 If Label1.Left < 0 Then Label1.Left = Form1.Width End Sub A．3 Private Sub Form_Click() Text1 = Val(Text1) + 1 End Sub Private Sub Form_Load() Text1 = 0 End Sub A．5
第五章 实验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
实验6 数组 6-1 Private Sub Command1_Click() Dim i As Integer, j As Integer Dim a(10) As Integer, t As Integer Print "交换前数据：" For i = 1 To 10 a(i) = ……‘生成20-80之间的随机数 Print ……;‘注意这里用分号，表示在一行上紧密输出各数组元素的值， ‘如不用分号和逗号，则分行输出各数组元素的值。 Next i Print ‘输出空行,表示后面的输出换到新的一行。 For i = 1 To 10 \ 2 ‘这里必须是10\2，表示交换5次，即可实现两两数据交换（第一' 个和最后一个的交换，第二个和第九个的交换，以此类推） ‘以下实现数据交换，必须通过第三个变量实现两两数据交换 t = a(i) a(i) = a(10 - i + 1) a(10 - i + 1) = t Next i Print "交换后数据：" ‘必须单独做循环输出数据，不能放在上面的循环里输出，因为上 面循环只有5次，只能输出5个元素。 For i = 1 To 10 Print ……; Next i End Sub 6-2 Private Sub Command1_Click() Dim a(10) As Integer, i As Integer, aver As Integer Dim max As Integer, imax As Integer Dim min As Integer, imin As Integer, sum As Integer Print "输入评委的评分" ‘①输入数组元素 For i = 1 To 10 a(i) =…… if a(i)<5 or a(i)>10 then ‘出错信息 ‘i控制变量作何处理？ endif
程序代码 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 单击退出之后的窗口：
VB实验作业参考答案 作业一窗体设计 (2) 作业二计算器 (4) 作业三人民币张数求电阻值 (6) 作业四（必做）建康城 (8) 作业五阶乘累加 (9) 作业六（必做）九九乘法表 (11) 作业七（必做）I NPUT B OX 函数输入12个整数，赋值给3×4的二维数组 (12) 作业八递归函数计算两个正整数的最大公约数，递归公式为 (13) 作业九（必做）家电提货单 (15) 作业十统计某个文本文件中各英文字母出现的次数，不区分大小写，并将结果打印到窗体上。 (17) 作业十一设计一个程序，用于打开1个windows应用程序，如打开“记事本”“画图”、“计算器”等。 (19) 作业十二通过菜单选择，对字体、字号进行设置 (21)
作业一 1.简答题(略) 2.编程题： 1)单击窗体后在窗体上显示“您好！×××同学”。 要求：（1）程序中用自己的姓名替代“×××”。（2）文字以红色、仿宋体、加粗、三号字显示，并在字下加横线。（3）建立一个命令按钮，结束时单击此按钮退出。 答案参照课本P27的例1-6。 2)设计一窗体，窗体上有1个文本框（Text1）、1个命令按钮（Command1），运行时文本框中显示“Visual Basic程序设计”，命令按钮标题为“结束”，文本框及命令按钮能随窗体大小的调整而自动调整大小及位置，其中调整文本框使其：Left=0，Top=0，宽度和高度都为窗体的一半；命令按钮：始终位于窗体右下角位置。请编写： （1）用代码初始化各控件（提示：可写在Form_Load事件中）。 （2）文本框控件随窗体的大小而调整大小的代码，以及调整命令按钮位置始终位于窗体右下角的代码（提示：调整大小位置的代码写在Form_Resize事件中）。 （3）结束程序运行的代码（命令按钮）。 程序代码： Private Sub Form_Load() Text1.Left = 0 Text1.Top = 0 Text1.Width = Form1.Width / 2 Text1.Height = Form1.Height / 2 Command1.Left = Form1.ScaleWidth - Command1.Width
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
Visual Basic 程序设计学习与实验指导答案 上篇学习指导 第1章Visual Basic 概述 1.事件 2.查看对象 3.工程 4.视图属性窗口 5.窗体编辑器 第2章面向对象程序设计初步 1.控件 2.事件 3.类属性 4.属性 5.略 https://www.doczj.com/doc/703079049.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#
实验报告二 实验目的 （1）掌握分支结构（if、if else、select case）语句 （2）掌握基本循环控制结构（For-Next、While-Wend、Do-Loop）语句 （3）掌握循环嵌套结构 （4）掌握素数算法 （5）能综合运用循环控制结构解决较复杂的问题 实验内容 一、选择结构程序设计 【实验3-1】编写一个“系统登录”程序，对用户输入的账号和密码进行检验。（10分）要求： ①账号不超过6位数，密码为4位字符，本题的密码假设为“majq”。 ②账号中不能有非数字字符，可以通过IsNumeric函数对文本框中的输入内容进行测试。 ③密码输入时，屏幕上不能显示输入字符，以“*”代替。 ④当输入不正确时，显示提示信息。若单击“重试”按钮，则清除原输入内容，焦点定位在原输入的文本框中，重新输入；若单击“取消”按钮，则停止程序的运行。 ⑤密码检验运行界面和输入密码错误显示的信息分别如图3-2和图3-3所示。 图3-2 密码检验运行界面图3-3 输入密码错误显示信息掌握简单if语句的使用 实验结果： 【请将你的代码粘贴到下面】
【请将你的典型结果的截图粘贴到下面】 【实验3-2】税务部门征收所得税，规定如下（用IF语句实现）（10分） ①当收入为200 元以内（含200元）时，免征； ②当收入为200 ~ 400 元（含400元）时，将超过200 元的部分纳税3% ； ③当收入为400 ~ 5000元（不含5000元）时，将超过400 元的部分纳税4% ； ④当收入为5000 元或5000元以上时，将超过400元的部分纳税5% 。 程序运行后，单击窗体，在输人对话框中输入收入数，程序将输出纳税金额，运行情况如下图所示，要求 纳税程序界面 掌握多分支if语句的使用，可自行用select语句改写。 实验结果： 【请将你的代码粘贴到下面】 【请将你的典型结果的截图粘贴到下面】 【实验3-3】猜数游戏 程序自动产生一个[1，100]内的正整数，要用户猜，用户猜的值与被猜值的差距用“*”号个数表示，“*”越少表示差得越远，“*”越多表示相差越近。（用select case语句实现）
自测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
第一题 1.制作如图所示窗体界面。（用真实的姓名、班级及学号） 2.使时间每隔1秒刷新一次 3.单击“最大值”命令按钮时，算出通过键盘输入的5个数的最大 值 4.在列表框中输入20、22、24、26、28 Private Sub Command1_Click() Dim a(1 To 5) As Integer For i = 1 To 5 a(i) = InputBox("please input a number") Next i mmax = a(1) For i = 1 To 5 If a(i) > mmax Then mmax = a(i) End If Next i MsgBox mmax End Sub Private Sub Timer1_Timer() Label2.Caption = Time End Sub 第二题 1.两个文本框里输入两个数字从而确定一个范围。 2.单击“计算”按钮求出这个范围中能被3或5整除的数的平方和， 结果显示在label3中。 https://www.doczj.com/doc/703079049.html,bel3的背景色每隔1.5秒蓝红交替。
Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = Text1.Text b = Text2.Text s = 0 For i = a To b If a Mod 3 = 0 Or b Mod 5 = 0 Then Label3.Caption = Label3.Caption & i & "," s = s + i * i End If Next i Label3.Caption = s End Sub Private Sub Timer1_Timer() If Label3.BackColor = vbRed Then Label3.BackColor = vbBlue Else Label3.BackColor = vbRed End If End Sub 第三题 1、单击按钮，在文本框中显示1到终值的所有整数的平方和 2、单击生成列表按钮，在列表框中显示1到终值之间的所有整数 Private Sub Command1_Click()
Visual Basic实验指导 前言 本课程共安排9个上机实验（36学时），每次实验要求上机之前做好预习及教材上有关内容的复习,对每次上机实验的内容及实验目的要做到心中有数。 每次实验完成后，都要进行小结并写出实验报告。 实验一VB环境和程序设计初步 一、实验目的 1、了解VB系统对计算机软硬件的要求。 2、掌握启动与退出VB的方法。 3、初步掌握菜单栏、工具栏、窗体窗口、工具箱、工程资源管理器窗口和属性窗口的使用。 4、掌握建立、编辑、运行一个简单的VB应用程序的全过程。 5、掌握常用控件（文本框、标签、命令按钮）的应用。 二、实验内容 1、编写一程序，在屏幕上显示”欢迎您使用Visual Basic”，并输入你的名字。
Private Sub Command1_Click() Label1.Caption = Text1.Text & "欢迎使用visual basic 6.0 !" End Sub Private Sub Form_Load() Text1.Text = "" End Sub 2、设计一程序程序，运行结果如下： 附：主要代码： Private Sub cmdClear_Click() txtDisplay.Text = "" End Sub Private Sub cmdExit_Click() End End Sub Private Sub cmdInput_Click() txtDisplay.Text = "欢迎来到Visual Basic6.0编程世界" End Sub 实验二数据类型、运算符和表达式 一、实验目的 1、掌握Visual Basic 6.0数据类型的概念。 2、掌握常量和变量的概念、定义方法和作用域。 3、掌握各种运算符的功能、表达式的构成、表达式中运算符的运算顺序和如何求表达式的 值。
实验教程 实验三顺序结构程序设计编程题参考答案（第47页） 1. 输入学生的语文、数学、英语、物理四门课程的成绩，计算该学生的总成绩和平均成绩并输出。要求使用InputBox分别进行输入，使用Print 方法输出。 2. 输入圆的半径，输出其周长、面积。要求使用TextBox控件进行输入，使用Label控件输出。 3. 输入一元二次方程ax2+bx+c=0 的系数a、b、c，输出两个实根。要求使用TextBox控件分别进行输入，使用Label控件输出。 实验四选择结构程序设计编程题参考答案（第58页） 1. 输入一个，判断其是否能同时被3和7整除。 2. 输入三个数，输出其中的最大值。 6. 编程及输出分段函数的值。由键盘输入t的值，计算y的值 7. B；20～29 为青年，输出B； 50 8. 输入年份，输出对应的属相。已知1984年为鼠年，要求使用Select Case语句实现。实验五循环结构程序设计编程题参考答案（第77页） 1.编写程序，求s=1×2×3 + 2×3×4 + … + n×(n+1) ×(n+2)的值，n由程序输入。 Y=
2.有一个分数序列 ，求出这个序列前 20项的和。 3. 求∑= 10 1 ! n n （即1！+2！+3！+…+10！） 4. 求一类三位数，该书中有某两位为相同数字，且该数是一个完全平方数，输出这些数并统计个数。 5. 输出所有的“水仙花数”。“水仙花数”是指一个三位数，其各位数字立方和等于该数本身。例如，371是一个水仙花数，因为371=33+73+13 6. 打印如图所示的乘法表 实验六定长数组的使用编程题参考答案（第96页） 1.定义一个包含10个数组元素的数组a，为其数组元素分别赋值为2、4、6、8、…20，并输出。 2. 输入十个评委的分数，去掉最高分和最低分后，计算最后的平均分并输出。 3.输入5个学生的姓名与一门课程的成绩，按成绩的升序输出姓名和成绩。分别使用比较 ,... 13 21 , 8 13 , 5 8 , 3 5 , 2 3 , 1 2
VB实验指导书答案 P10 第一章 1. CAACD ABCCB 2.（1）视图工具箱 （2）代码窗体设计 （3）对象事件驱动 （4）工程 （5）中断 P21 第二章 1. CBDCD CCCDA DBCBA BDACB BCADA C 2.（1）事件 （2）Shift Ctrl （3）工具选项编辑器 （4）窗体font （5）Selstart （6）强制显式声明变量 （7）类 P35 第三章 1. CBAAA BCDAD ABBBC ADDBD 2.（1）integer （2）????（3）text （4）a=0 or b=0 （5）(x+y)*sin(30*3.14/180) （6）int(rnd*100+1) （7）# （8）0
（9）int(rnd*30+70) (10) CDEF P53 第四章 1. BCADC CABCA AADDC BCABB 2.（1）3 （2）X mod 5 x （3）randomize （4）9 j mod 3=0 （5）66 (6）5 （7）顺序分支（或选择）循环（8）33 （9）4 8 4 （10) 退出子过程（11）1 （12）提示信息标题默认值 第6章过程 一、单选题 1.B 2.B 3.B 4.A（更正：选项④应该是Private Function F1(x As Integer) As Integer） 5.D 6.C 7.C 8.B 9.C 10.C 11.A 12.A 13.D 14.D 15.C 16.B 17.C 18.A 19.C 20.B 二、填空题 1. 形式，实际 2. 地址，值
3. SS=t 4. sq(x As Integer)，Function 5. V al(t.Text) 6. 30,70 7. 5 8. tmpLabel1.Caption = tmpCombo.Text 9. 30 10. nAA N, X ，N1，nT1 * X1 11. Dim F As Double，i，Dim nfactor As Double，F = nfactor 第七章单选题 1. C 2. C 3. D 4. D 5. B 6. C 7. A 8. B 9. A 10. D 11. B 12. B 13. A 14. C 15. C 16. D 17. B 18. A 19. C 20. A 21. A 22. B 23. D 24. C 25. C 26. B 27. D 28. A 29. B 30. A 31. D 32. C 33. D 34. D 35. A 36. A 37. A 38. D 39. B 40. B 41. B 42. B 43. C 44. C 45. C 46. B 47. B 48. C 49. C 50. A 第8章界面设计 一、单选题 1.D 2.D 3.D 4.C 5.C 6.D 7.A 8.B 9.B 10.A 11.B 12.B 13.D 14.B
vb实习心得体会 VB实习体会 我对于visualbasic的学习，是从初中开始的。当时舟山市的中考政策有考级加分制度，考出全国二级能加10分。在此诱惑下报名参加培训班，考了两次，第一次笔试未通过，第二次才全通过。虽然考了两次，但是那时候已经能够编出几个没有什么逻辑性可言的小小游戏了。 所以这次认识实习，对我来说难度并不大。然而由于选课上面的原因，认识实习和电子实习冲突，导致我没有上过一节认识实习课。所以我的vb水平基本没有什么进步，这个五子棋，也是建立在初中的经验上的。 vb本身也不是很难。尤其在gui编程上能够体现出来。我接触过几种gui的编程，桌面应用里面有swing、qt库的编程，另外还有android和j2me的编程。这些程序在gui 开发上面虽然不能说难，但代码量也是很大的。而微软确实对程序员比较照顾，出了很多的编程方式都比较简易，比如windowsform式的编程，这在vb和c#上体现的非常到位，大大降低了程序员的门槛。值得一提的是，我初中的学校，超过三分之一的人通过了全国计算机等级考试二级vb，可见vb的简单程度。 虽然vb很简单，但说实话我不太喜欢vb。一方面是长期接触类c语法，让我对于类c语法的语言比较偏爱。另一
方面是vb是一种windowsonly的语言，可移植性比较差。 而从业界发展的视角来看，随着苹果焕发第二春以及google的崛起，微软的势力开始萎缩。在终端方面，高端智能手机以及平板电脑正悄悄取代个人pc机的地位。而互联网云计算的概念更加使得这些终端设备能够替代传统pc。而微软在这方面几乎可以被称作是惨败的。所以，开发windows 桌面应用渐渐显得不入时，况且是用可移植性非常差的vb6来开发。 如果要我选择桌面应用程序开发工具的话，我恐怕会选择c#。它既有 windowsform的编程方式，拥有的几乎所有的便利特性，而且是类java 语法，使得程序员能够非常快的适应。另外，.net的可移植性比较强。c#运行在.net平台上，理论上可以像java 那样易于移植，而且在linux上也出现了mono这样的开源版本。而vb6则不行。 当然，语言的问题总是微乎其微的。这一次实习最大的收获应该是大致了解了五子棋程序的原理。比如说怎么判断五子连珠等等。虽然没有更上一层楼编出ai，但是总的来说，这是我第一次用vb开发出一个像样点的游戏了。 VB实习体会 我对于visualbasic的学习，是从初中开始的。当时舟