实验一：
一、选择
1.D
2.D
3.B
4.A
5.B
6.C
7.CD
8.D
9.D 10. BC
11. A 12.D 13. D 14. C 15. A
二、填空
1.windows
2. 中断
3.工具箱
4.代码
5.分类
6.form2.show
7. 出现语法错误
8. 错
9. 事件 10. 面向对象 11.工程文件结构 12. 工
程 13. 设计程序代码 14. 双击窗体 15. C:\Program Files\Microsoft Visual Studio\VB98 或者 VB的安装文件夹 16.属性 17.方法 18.font 19. form_load() 20.对象
实验二：
一、选择
1.B
2.C
3. B
4.C
5.C
6.C
7.B
8.B
9.D 10. A
11. C 12.C 13. C 14. B 15. A
16.C 17.B 18.D 19.C 20. C
二、填空
1. Form_Click()
2. Interval、5000
3..vbp .frm
4.left top Height、Width twip
5.picture
6.load
7. locked
8. font Alignment
9. GotFocus() LostFocus() 10. 属性窗口程序代码
实验三：
一、选择
1.A
2.BC
3.BC
4.A
5.A
6.A
7.BCD
8.D
9.B 10. B
11. B
二、判断题
不合法的变量： 3. 4. 5. 6. 8. 10. 11. 14.15. 16.
三、
1、abs(x+y)
2. (3+x*y)^2
3. (-b+sqr(b^2-4*a*c))/(2*a)
4.sin(30*3.14/180)+exp(2)
四、
1. int(rnd* 71+20) 或int(rnd* 71)+20
2. x<0 and y>0 or x>0 and y<0 或者x*y<0
3. x mod 3=0 or x mod 7=0
或 x/3=x\3 or x/7=x\7
4. x>=10 and x<20
5. x>="A" and x<="Z"
6. left(s,3)
实验四：
一、选择
1.C
2.D
3. C
4.D
5.A
6.D
7.B
8.B
9.A 10. C
二、填空
1. 48.71E-01, -4.8712
2. 关系、逻辑、算术
3. 900，100，mid(s,2,1)
4.m、1,2,3 、print m & "月是第二季度"、end select 三、
1. X=4 y=13
2. 10
实验五
一、选择
B C B A C
二、填空
（1）for x=2 to 10
s*(1-1/x)
(2) 1 t>1E-6
(3) j t
(4) 5 11 5
实验六
一、选择
B C C C D D D D C A
实验七
一、选择
1C 2C 3D 4A 5B 6D 7AB 8A 9A 10A
二、填空
（1）n！
（2）1+1+2+3+4+……+n
（3）n是否是素数
（4）冒泡排序
（5）递归调用产生斐波那契数列
（6）求最大公约数和最小公倍数
实验二
Private Sub Command1_Click()
Label3 = Val(Text1) * Val(Text2)
End Sub
Private Sub Command2_Click()
Label3 = Val(Text1) / Val(Text2)
End Sub
2-2
Private Sub Command1_Click()
Picture1.Picture = LoadPicture("d:\tu1.jpg") End Sub
Private Sub Command2_Click()
Picture1.Picture = LoadPicture("d:\tu2.jpg") End Sub
Private Sub Command3_Click()
Picture1.Visible = False
End Sub
2-4
Private Sub Command1_Click()
Text2 = Text1
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
End Sub
Private Sub Form_Load()
Command1.Visible = False
Command2.Visible = False
End Sub
Private Sub Text1_Change()
Command1.Visible = True
Command2.Visible = True
End Sub
2-5
Private Sub Form_Load()
Image1.Picture = LoadPicture("C:\Documents and Settings\All Users\Documents\My Pictures\示例图片\Sunset.jpg")
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Image1_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Image1.Left = Int(Rnd * (Form1.ScaleWidth - Image1.Width))
Image1.Top = Int(Rnd * (Form1.ScaleHeight - Image1.Height))
End Sub
实验三
3-2
Private Sub Command1_Click()
Dim n%
n = Abs(Val(Text1))
Label2 = Format(n ^ 2, "#.000") & Space(2) & Format(Sqr(n), "#.000") & Space(2) & Format(n
^ 3, "#.000") & Space(2) & Format(n ^ (1 / 3), "#.000")
End Sub
3-3
Private Sub Command1_Click()
Dim x%, y%
x = Int(Rnd * 900 + 100)
Print "产生的随机数："; x
y = (x Mod 10) * 100 + (x \ 10 Mod 10) * 10 + x \ 100
Print "反序数："; Format(y, "000")
End Sub
Private Sub Command2_Click()
Dim x%, y As String
x = Int(Rnd * 900 + 100)
Print "产生的随机数："; x
y = Trim(Str(x))
Print "反序数：" & Right(y, 1) & Mid(y, 2, 1) & Left(y, 1)
End Sub
Private Sub Form_Load()
End Sub
3-4
Private Sub Command1_Click()
Dim m%, n%
Randomize
m = Val(Text1): n = Val(Text2)
x = Int(Rnd * (n - m + 1) + m)
y = Int(Rnd * (n - m + 1) + m)
z = Int(Rnd * (n - m + 1) + m)
Label3 = m & "到" & n & "之间的3个随机数为: " & x & Space(3) & y & Space(3) & z End Sub
Private Sub Form_Load()
End Sub
3-5
Private Sub Command1_Click()
Label1.Caption = Date
Private Sub Command2_Click()
Label2.Caption = Time
End Sub
Private Sub Command3_Click()
Label3.Caption = WeekdayName(Weekday(Date))
End Sub
Private Sub Form_Load()
End Sub
实验四
4-1
方法一
Private Sub Command1_Click()
Dim x!, a!, aa%, b!, bb%, c!, cc$
x = Val(Text1)
a = x * 180 / 3.14
aa = Int(a)
b = (a - aa) * 60
bb = Int(b)
c = (b - bb) * 60
cc = Format(c, "#.000")
Label2 = "弧度" & Text1 & "转换为" & aa & "度" & bb & "分" & cc & "秒" End Sub
方法二
Private Sub Command1_Click()
x = InputBox("请输入弧度数值", "弧度转换", 0)
xx = Val(x)
a = x * 180 / 3.14
aa = Int(a)
b = (a - aa) * 60
bb = Int(b)
c = (b - bb) * 60
cc = Format(c, "#.000")
MsgBox "弧度" & x & "转换为" & aa & "度" & bb & "分" & cc & "秒"
End Sub
4-2
Private Sub Command1_Click()
x = Val(Text1)
If x / 400 = x \ 400 Or x Mod 4 = 0 And x Mod 100 <> 0 Then Label2 = Text1 & "年是闰年"
Else
Label2 = Text1 & "年不是闰年"
End If
End Sub
4-3
方法二
Private Sub Command1_Click()
Dim x%, y%, z%
x = InputBox("输入第一个数")
y = InputBox("输入第二个数")
z = InputBox("输入第三个数")
If x > y Then t = x: x = y: y = t
If y > z Then t = y: y = z: z = t
If x > y Then t = x: x = y: y = t
Print x, y, z
End Sub
Private Sub Form_Load()
End Sub
方法一
Private Sub Command1_Click()
Dim x%, y%, z%
x = Val(Text1)
y = Val(Text2)
z = Val(Text3)
If x > y Then t = x: x = y: y = t
If y > z Then
t = y: y = z: z = t
If x > y Then
t = x: x = y: y = t
End If
End If
Label1 = x & Space(5) & y & Space(5) & z
End Sub
4-4
方法一
Private Sub Command1_Click()
x = Val(InputBox("请输入上网时间:"))
If x <> -1 Then
Select Case x
Case Is < 10
fei = 25
Case 10 To 50
fei = x * 2
Case 50 To 100
fei = x * 1.5
Case Is >= 100
fei = x * 1
End Select
MsgBox "上网费用为:" & fei & "元"
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
End Sub
方法二
Private Sub Command1_Click()
Do
x = Val(InputBox("请输入上网时间:", , -1)) If x <> -1 Then
Select Case x
Case Is < 10
fei = 25
Case 10 To 50
fei = x * 2
Case 50 To 100
fei = x * 1.5
Case Is >= 100
fei = x * 1
End Select
zongfei = zongfei & Space(3) & fei
MsgBox zongfei, , "上网费用为"
Else
Exit Do
End If
Loop
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
End Sub
4-5
实验五
5-1
Private Sub Command1_Click()
For n = 1 To 100
s = s + n
Next n
Print s
End Sub
5-2
Private Sub Command1_Click()
For i = 0 To 20
For j = 0 To 33
If i * 5 + j * 3 + 1 / 3 * (100 - i - j) = 100 Then Print i, j, 100 - i - j Next
Next
End Sub
5-3
Private Sub Command1_Click()
n = 0
Do
If n Mod 2 = 1 And n Mod 3 = 2 And n Mod 5 = 4 And n Mod 6 = 5 And n Mod 7 = 0 Then Exit Do
n = n + 1
Loop
Print n
End Sub]
5-4
法一
Private Sub Command1_Click()
Dim x%, y%, z%, i%, j%
For x = 0 To 9
For y = 0 To 9
For z = 0 To 9
i = x * 100 + x * 10 + z
j = y * 100 + z * 10 + z
If i + j = 532 Then Print x; y; z
Next
Next
Next
End Sub
法二
Private Sub Command3_Click()
For i = 0 To 9
For j = 0 To 9
For k = 0 To 9
If Val(i & i & k) + Val(j & k & k) = 532 Then Print i, j, k Next
Next
Next
End Sub
5-5
Private Sub Command1_Click()
x = Val(Text1)
y = x * 4
n = 0
Do While x <= y
x = x * (1 + 0.1)
n = n + 1
Print x
Loop
Print x, n
End Sub
5-6
Private Sub Command1_Click()
n = Val(InputBox("输入计算到第几项:", , 0))
For i = 1 To n
s = s + (-1) ^ (i + 1) * i
Next
Print n, s
End Sub
Private Sub Form_Load()-8
End Sub
5-7
法一（单循环）
Private Sub Command1_Click()
Dim n%, s%
n = Val(InputBox("输入计算到第几项:", , 0)) s = 0: t = 0
For i = 1 To n
t = t + i
s = s + t
Next
Print s
End Sub
法二（双循环）
Private Sub Command2_Click()
Dim n%, s%
n = Val(InputBox("输入计算到第几项:", , 0)) s = 0: t = 0
For i = 1 To n
t = 0
For j = 1 To i
t = t + j
Next
s = s + t
Next
Print s
End Sub
5-8
Private Sub Command1_Click()
Dim s As Double, pi As Double
n = 1: s = 0
Do While 1 / (2 * n - 1) >= 0.0001
s = s + (-1) ^ (n + 1) * 1 / (2 * n - 1)
n = n + 1
Loop
pi = 4 * s
Print pi
End Sub
5-9
Private Sub Command1_Click()
For n = 100 To 999
k = Trim(Str(n))
If n = Left(k, 1) ^ 3 + Mid(k, 2, 1) ^ 3 + Right(k, 1) ^ 3 Then Print n Next
End Sub
5-10
Private Sub Command1_Click()
For n = 999 To 100 Step -1
For i = 2 To n - 1
If n Mod i = 0 Then Exit For
Next i
If i = n Then
Print n
k = k + 1
End If
If k = 3 Then Exit For
Next n
End Sub
5-11
Private Sub Command1_Click()
s = 0: Max = 0: Min = 1000
For i = 1 To 20
Randomize
x = Int(Rnd * 50 + 51)
Print x;
If x > Max Then Max = x
If x < Min Then Min = x
s = s + x
Next i
aver = s / 20
Print "max="; Max, "min="; Min, "aver="; aver End Sub
Private Sub Form_Load()
End Sub
5-12
法一（单循环）
Private Sub Command1_Click()
For i = 1 To 4
Print Tab(20 - i); String(2 * i - 1, "*")
Next
End Sub
法二（双循环）
Private Sub Command2_Click()
For i = 1 To 4
Print Tab(30 - i);
For j = 1 To 2 * i - 1
Print "*";
Next
Next
End Sub
实验六6-1
Private Sub Command1_Click()
Dim i%, a%(1 To 10), max%, min%, avg!
max = 0: min = 100: avg = 0
For i = 1 To 10
a(i) = Int(Rnd * 51 + 50)
Print a(i);
If a(i) > max Then max = a(i)
If a(i) < min Then min = a(i)
avg = avg + a(i)
Next i
Print "--------------------"
Print max, min, avg / 10
End Sub
6-2
Private Sub Command1_Click()
Dim a%(1 To 20), i%, y%, l%, z%, j%, b%
For i = 1 To 20
a(i) = Int(Rnd * 101)
Print a(i);
If i Mod 10 = 0 Then Print
Select Case a(i)
Case 90 To 100
y = y + 1
Case 80 To 89
l = l + 1
Case Is >= 70
z = z + 1
Case Is >= 60
j = j + 1
Case Else
b = b + 1
End Select
Next i
Print "优秀:"; y
Print "良好:"; l
Print "中:"; z
Print "及格:"; j
Print "不及格:"; b
End Sub
6-3
Private Sub Command1_Click()
Dim a(1 To 10) As Integer, i%, j%
For i = 1 To 10
a(i) = Int(Rnd * 50 + 1)
Print a(i);
Next i
n = 10
For i = 1 To n - 1
For j = n To i + 1 Step -1
If a(j) > a(j - 1) Then
t = a(j): a(j) = a(j - 1): a(j - 1) = t End If
Next j
Next i
Print "-----------排序之后--------"
For i = 1 To 10
Print a(i);
Next i
End Sub
6-4
法一
Private Sub Command1_Click()
Dim a(1 To 20) As Integer, i%
For i = 1 To 20
a(i) = Int(Rnd * 101 + 1)
'Print a(i);
'If i Mod 5 = 0 Then Print
If i Mod 5 = 0 Then Print a(i) Else Print a(i); Next i
End Sub
法二
Private Sub Command2_Click()
Dim a(1 To 20) As Integer, i%
For i = 1 To 20
a(i) = Int(Rnd * 101 + 1)
Print a(i);
If i Mod 5 = 0 Then Print
Next i
End Sub
6-5
Private Sub Command1_Click()
Dim a%(1 To 9), b(1 To 3, 1 To 3) As Integer, i%, j%
For i = 1 To 9
a(i) = Int(Rnd * 100)
Print a(i);
Next i
For i = 1 To 3
For j = 1 To 3
b(i, j) = a((i - 1) * 3 + j)
Next j
Next i
For i = 1 To 3
For j = 1 To 3
Print b(i, j);
Next j
Next i
End Sub
6-6
Private Sub Command1_Click()
Dim a() As Integer, i%
n = InputBox("n")
ReDim a(1 To n, 1 To n)
For i = 1 To n
For j = 1 To n
a(i, j) = Int(Rnd * 100)
Print a(i, j);
Next j
Next i
End Sub
6-7
Private Sub Command1_Click()
Dim a() As Integer, i%
n = InputBox("n")
ReDim a(1 To n, 1 To n)
For i = 1 To n
For j = 1 To n
If (i = j) Or (i + j = n + 1) Then a(i, j) = 1 Else a(i, j) = 0 Print a(i, j);
Next j
Next i
End Sub
6-8
Private Sub Command1_Click()
Dim a(), i%, j%, m%, n%
m = InputBox("M")
n = InputBox("n")
ReDim a(1 To m, 1 To n)
For i = 1 To m
For j = 1 To n
a(i, j) = Int(Rnd * 100)
Print a(i, j);
Next j
Next i
Dim max%, imax%, jmax%
max = a(1, 1): imax = 1: jmax = 1
For i = 1 To m
For j = 1 To n
If a(i, j) > max Then
max = a(i, j)
imax = i
jmax = j
6-9
Private Sub Command1_Click()
Dim a(), i%, j%, m%, n%
m = InputBox("M")
n = InputBox("n")
ReDim a(1 To m, 1 To n)
For i = 1 To m
For j = 1 To n
a(i, j) = Int(Rnd * 100)
Print a(i, j);
Next j
Next i
ReDim Preserve a(1 To m, 1 To n + 1) '计算i行的和，放入第n+1列
For i = 1 To m
a(i, n + 1) = 0
For j = 1 To n
a(i, n + 1) = a(i, n + 1) + a(i, j)
Next j
Next i
For i = 1 To m
For j = 1 To n + 1
Print a(i, j);
Next j
Next i
End Sub
6-10
Private Sub Command1_Click()
Dim n%, a%(), i%
n = InputBox("n")
ReDim a(1 To n)
Print "-----初值-----------------"
For i = 1 To n '赋值
a(i) = Int(Rnd * 21 - 10)
Print a(i);
If i Mod 5 = 0 Then Print
Next i
For i = 1 To n - 1 '将相同的值得数组元素赋值为-100 If a(i) <> -100 Then
For j = i + 1 To n
If a(j) = a(i) Then a(j) = -100
Next j
End If
Next i
Print "-----重复的值赋值为-100----------"
For i = 1 To n '赋值
Print a(i);
If i Mod 5 = 0 Then Print
Next i
Print "-----删除掉重复的值------------"
'下面的代码将值为-11的数组元素过滤掉
k = 0
For i = 1 To n
If a(i) <> -100 Then
k = k + 1
a(k) = a(i)
End If
Next i
'打印前ｋ个
ReDim Preserve a(1 To k)
For i = 1 To k
Print a(i);
If i Mod 5 = 0 Then Print
Next i
End Sub
《VB程序设计》实验单元二 实验报告 专业班级：新闻班姓名: ________________ 学号：—指导教师：完成时间：2013.5 一、实验题目 数组和自定义类型 二、实验环境 Visual Basic6.0 程序软件 三、实验目的 1.掌握数组的声明、数组元素的引用。 2.掌握固定长度数组和动态数组的使用差别。 3.掌握数组常用的操作和常用算法。 4.掌握列表框和组合框的使用。 5.掌握自定义类型及数组的使用。 四、实验内容 1.随机产生30—100 （包括30、100）的10个正整数，求最大值、最小值、平均值，并显示整个数组的只和结果。 2.随机产生20个学生成绩，统计各分数段人数。即0~59、 60~69、 70~79、80~89、90~100,并显示结果。
五、实验步骤 1.打开VB界面，建立工程 2.在窗体窗口设置界面 3?属性窗口控件对象属性设置 4.编写程序代码 5?运行程序及调试 6?程序建立，保存工程文件六、实验结果 第1题：
70 53 57 28 30 77 1 76 81 70最大值81 最小值1 平均值54.3 4 41 86 79 37 96 87 5 94 36 最大值96 最小值4 平均值56.5 52 76 5 59 46 29 62 64 26 27 :最大值76 最小值5 平均值44.6 82 82 58 98 91 22 69 98 24 53最大值98 最小值22 平均值67.7 10 99 67 1 57 10 10 79 28 4 最大值99 最小值1 平均值36. 5 29 38 30 94 97 40 27 16 16 64实验 r Q Forml 回
台州学院 《VB程序设计》实验报告实验八：图形的绘制 班级：14制药3班 学号： 姓名： 实验日期：2015.6.5
一、实验目的和要求 1．掌握Visual Basic 容器坐标系的设计方法； 2．熟练掌握Pset、Line和Circle方法的格式及其使用； 3．掌握与图形有关的常用属性，方法。 二、实验主要仪器和设备 计算机一台，Windows XP / Win7操作系统，Visual Basic环境。 三、实验内容 实验8.1 下列程序运行时，先输入各公司月销售额，然后单击命令按钮，图片框中将显示各公司销售额的圆饼图（如图8-1所示）。要求：在文本框中只能输入数字字符；在圆饼图中分别用红、绿、篮色显示A、B、C公司的扇区填充色。 图8-1 程序运行时的界面 四、实验原始纪录 实验8.1 程序的界面设计。
程序代码。 Const pi = 3.1415926 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer, d As Integer a = Text1.Text b = Text2.Text c = Text3.Text d = a + b + c Picture1.FillStyle = 0 Picture1.FillColor = vbRed Picture1.Circle (2000, 2000), 1000, vbBlack, -2 * pi, -(a / d) * pi * 2 Picture1.FillColor = vbGreen Picture1.Circle (2000, 2000), 1000, vbBlack, -(a / d) * pi * 2, -((a + b) / d) * pi * 2 Picture1.FillColor = vbBlue Picture1.Circle (2000, 2000), 1000, vbBlack, -((a + b) / d) * pi * 2, -pi * 2 End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End If End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End If End Sub 五、实验结果及分析 实验8.1运行结果。
《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+Acces）》实验报告 ＊＊＊＊年＊月＊＊日实验题目1选择结构程序设计 选课课号2015-2016-2-N081002S00-08034- 学院 ＊＊＊＊＊ 学院 班 级 ＊＊＊＊＊＊＊ 姓名＊＊＊ 学 号 ＊＊＊＊＊＊＊＊＊ 理论课教师李平珍 上机指 导教师 李平珍 实验目的及要求： 1．掌握条件表达式和分支语句 2．正确使用If．．．Then．．．Else和If．．．Then．．．ElseIf等语句3．使用选择性控件实现程序应用 编写以下程序段： 求一元二次方程ax2+bx+c=0的根 设计一个四则运算计算器 实验的详细操作步骤、程序代码及运行截图： 一． Private Sub Command1_Click() Dim A As Single, B As Single, C As Single Dim R1 As Single, R2 As Single A = Val B = Val
If B ^ 2 - 4 * A * C < 0 Then MsgBox "该方程无解." ElseIf B ^ 2 - 4 * A * C = 0 Then R1 = -B / 2 / A MsgBox "该方程仅有一个根为" & R1 & "." Else R1 = (-B + Sqr(B ^ 2 - 4 * A * C)) / (2 * A) R2 = (-B - Sqr(B ^ 2 - 4 * A * C)) / (2 * A) MsgBox "该方程有两个根分别为" & R1 & "和" & R2 & "." End If End Sub 二． Private Sub cmdCal-Click() Dim x1 As Single,sign As String,x2 As Single X1=Val(txtA):sign=txtB:x2=Val(txtC)
实验报告 课程名称_程序设计基础Visual Basic_ 班级______ _____＿姓名_____ ____
实验一 VB环境和创建一个简单的VB程序 一．实验目的： 1.了解VB系统对计算机软件、硬件的要求。 2.掌握启动和退出VB的方法。 3.了解和使用VB集成开发环境各窗口、菜单的一般功能。 4.熟悉建立、编辑、运行、保存一个简单的VB应用程序的全过程。 5.了解文本框、标签框、命令按钮的构造及其属性、事件和方法。 二．实验内容： 1．设计一个简单的应用程序，要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序，并把命令按钮分别设置为”显示”和”清除”。程序运行后，单击”显示”按钮，在文本框中输出一行信息；单击”清除”按钮，则清除文本框中的内容，运行界面如图所示。 图实验1-1 运行界面 三．实验结果：对象属性设置 对象属性属性值说明 caption我的第一个vb程序窗体Form1 caption请输入姓名标签Label1 text““文本框Text1 caption显示命令按钮Command1 caption清除命令按钮Command2 四．实验思考： 1.标签label控件设置的属性代码有哪些 =“请输入姓名” =24 =True 2.两个按钮所使用的是什么事件代码分别是什么 Private Sub Command1_Click() =“姓名”
实验二简单程序设计数据类型及常用内部函数的简单应用 一．实验目的： 1．掌握Visual Basic数据类型的基本概念。 2．掌握用Visual Basic的各种运算符及表达式。 3．学习使用Visual Basic内部函数和数据输入、输出方法。 4．掌握命令按钮、文本框和标签。 5．设计顺序程序。 二．实验内容： 1．编写一个华氏温度和摄氏温度之间的转换程序，如图2-2所示,要求用inputbox函数输入华氏温度，用msgbox输出转换后的摄氏温度。转换公式是：C= 5 / 9(F - 32)。F为华氏温度，C为摄氏温度。 2.用三种除法运算（/ 、\、Mod）做计算。 要求:在窗体上画五个标签、五个文本框和一个命令按钮，如图2-2所示。程序运行后，在第一个文本框中输入被除数，在第二个文本框中输入除数，然后单击命令按钮，即可得到三种不同的相除结果。 图2-1 图2-2 三．实验结果：对象属性设置 1.温度转换 对象属性属性值说明 Form1Caption Inputbox与msgbox窗体
实验报告一 课程VB程序设计实验项目Visual Basic环境 顺序选择程序设计(4学时) 成绩 专业班级 姓名学号实验日期 实验目的 （1）熟悉Visual Basic6.0集成开发环境 （2）掌握Visual Basic程序的开发过程，能够运行一个完整的Visual Basic程序（3）掌握选择控制结构（If、Select case）语句实现程序分支 （4）掌握控制结构相关控件（单选按钮、复选框） （5）能综合运用选择及循环控制结构解决较复杂的问题 实验内容 一、VB环境和顺序结构 【实验1】设计一个简单VB程序（10分） 它由一个窗体、一个文本框和3个命令按钮组成。窗体的标题为"Visual Basic 程序设计示例"，当用户单击命令按钮“显示”时，文本框中出现“欢迎使用Visual Basic 6.0”,窗体上显示“你好”，单击命令按钮“清除”时,清除文本框中显示的内容和窗体上的内容，单击命令按钮“结束”时，结束程序。 实验结果： 【实验1 代码】 【实验1 典型结果】 【实验2】编写程序，其功能为输入三角形的三边，求三角形的面积。计算公式为：
S=(a+b+c)/2，面积=sqr(s*(s-a)*(s-b)*(s-c)) （20分） 程序界面如下所示 实验结果： 【实验2 代码】 【实验2 典型结果】 【选做1】单击窗体时，随机产生一个三位正整数，然后逆序输出该数，产生的数与逆序数同时显示，结果如下所示,要求用两种方法实现（使用数字的逆序和字符串的逆序）（15分） 实验结果： 【方法1 代码】 【方法1 典型结果】 【方法2 代码】 【方法2 典型结果】
台州学院 《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
大学学生实验报告 开课学院及实验室：地理科学学院2014年4月1日
表A_1 对象属性设置 控件名属性 Form1 Caption=”实验A_1” Label1 Caption=”欢迎学习VisualBasic”;Font属性:字号为二号,字体为隶书 Label2 Caption=”请输入你的”Font属性:字体为楷体,有下划线 Text1 Text1=”” Command1 Caption=”” Label3 Caption=””,BorderStyle=1 ④窗体界面设计如图1： 图1 实验A_1窗体界面设计 ⑤代码设计如图2： 图2实验A_1代码设计 （3）实验结果
①运行结果如图3： 图3实验A_1运行结果 ②保存文件如图4： 图4实验A_1文件保存 A_2 （1）实验容：模仿教材例1.1，将事件过程自上而下移动改为自右向左移动，也要考虑文字出窗体边界的情况。各控件及属性窗口的设置参见表格A.2，背景图形文件可以选择自己喜欢的，按钮上的图标通过Windows 搜索功能查找。以Sy1-2为项目名保存。 （2）实验步骤： ①创建一个“标准EXE”工程； ②在窗体上添加标签Label1、命令按钮Command1和Command2及Timer1； ③设置对象属性；
表A_2 对象属性设置 控件名属性 Form1 Caption=”实验A_2”;Picture:为你喜欢的图片 Label1 Caption=”我开始学习程序设计”;Fontsize=36 Command1 Caption=””;Style=1;Piciture=”clock02.ico”;ToolTipText=” 自动” Command2 Caption=””;Style=1;Piciture=”key04.ico”;ToolTipText=” 手动” Timer1 Internal=0 ④窗体界面设计如图5： 图5 实验A_2窗体界面设计 ⑤代码设计如图6：
第一套试题 一、选择题（每题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程序设计》实验报告 专业：信息管理与信息系统 班级：1502班 学号： 姓名： 日期：2016年12月20日
一、实验题目：记事本程序的设计 二、实验目的 1、掌握菜单编辑器的使用方法。 2、掌握菜单事件的编程方法。 3、初步掌握多窗体程序设计方法。 三、实验内容与步骤 1、实验内容：设计一个记事本程序。 2、界面设计（贴出对象属性表和界面设计图）。 ①在窗体frmPad上添加一个文本框text1，并根据下表修改窗体及控件属性。 对象窗体属性设置 对象名属性值 FrmPad Caption “记事本” Text1 MultiLine True ScrollBars 2-Vertical Text 清空 ②使用菜单编辑器在窗体上建立菜单：选中窗体frmpad后，单击“工具”菜 单的“菜单编辑器”命令，弹出“菜单编辑器“对话框，如下图所示。 ③根据下表设置菜单。 菜单设置 菜单项标题菜单项名称快捷键其他属性编辑mnuEdit ···剪切mnuCut Ctrl+X ···复制mnuCopy Ctrl+C ···粘贴mnuPaste Ctrl+V
文本风格mnuStyle ···粗体（&B）mnuBold "复选"属性为True ···斜体（&I）mnuItalic "复选"属性为True 弹出菜单popMenu "可见"属性为True ···剪切popCut ···复制popCopy ···粘贴popPaste 设计好程序窗体如下图所示。 菜单编辑器
界面设计 3、编写程序代码。 Private Sub Form_Load() Text1.FontSize = 16 Text1.Text = "Visual Basic程序设计" mnuBold.Checked = False mnuItalic.Checked = False End Sub '剪切 Private Sub mnuCut_Click() Clipboard.Clear Clipboard.SetText Text1.SelText Text1.SelText = "" End Sub '复制
VB实验报告(含答案)
实验报告 课程名称_程序设计基础Visual Basic_ 班级______ _____＿姓名_____ ____
实验一 VB环境和创建一个简单的VB程序 一．实验目的： 1.了解VB系统对计算机软件、硬件的要求。 2.掌握启动和退出VB的方法。 3.了解和使用VB集成开发环境各窗口、菜单的一般 功能。 4.熟悉建立、编辑、运行、保存一个简单的VB应用 程序的全过程。 5.了解文本框、标签框、命令按钮的构造及其属性、 事件和方法。 二．实验内容： 1．设计一个简单的应用程序，要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序，并把命令按钮分别设置为”显示”和”清除”。程序运行后，单击”显示”按钮，在文本框中输出一行信息；单击”清除”按钮，则清除文本框中的内容，运行界面如图1.1所示。
实验二简单程序设计数据类型及常用内部函数的简单应用 一．实验目的： 1．掌握Visual Basic数据类型的基本概念。 2．掌握用Visual Basic的各种运算符及表达式。 3．学习使用Visual Basic内部函数和数据输入、输出方法。 4．掌握命令按钮、文本框和标签。 5．设计顺序程序。 二．实验内容： 1．编写一个华氏温度和摄氏温度之间的转换程序，如图2-2所示,要求用inputbox函数输入华氏 温度，用msgbox输出转换后的摄氏温度。转换 公式是：C= 5 / 9(F - 32)。F为华氏温度，C 为摄氏温度。 2.用三种除法运算（/ 、\、Mod）做计算。 要求:在窗体上画五个标签、五个文本框和一个命令按钮，如图2-2所示。程序运行后，在第一个文本框中输入被除数，在第二个文本框中输入除数，然后单击命令按钮，即可得到三种不同的相除结果。
《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. 下面过程定义语句合法的是____________。
福建农林大学计算机与信息学院(计算机公共基础二级课程) 实验报告 课程名称：Visual Basic 程序设计 姓名：邹丽平 学院: 食品科学学院 专业：食品科学与工程 年级：2010级 学号：102258016001 指导老师：黄红兵 职称：讲师 2012 年5 月20 日
实验项目列表
福建农林大学计算机与信息学院实验报告 学院：食品科学学院专业：食品科学与工程年级： 2010级 姓名：邹丽平学号： 102258016001 实验室号__宝玲楼304___计算机号 01 实验时间： 2012.3.5 指导教师签字：黄红兵成绩： 报告退发（订正、重做） 实验一 VB环境和简单应用程序设计 一、实验目的和要求 1.了解Visual Basic系统对计算机软件、硬件的要求。 2.掌握启动与退出Visual Basic的方法。 3.熟悉visual basic的集成开发环境（IDE）。 4.掌握建立、编辑、运行和保存一个简单visual basic应用程序的全过程。 5.了解基本控件（窗体、标签、文本框、命令按钮）的简单应用。 二、实验内容 1.启动Visual Basic 6.0，熟悉其集成开发环境。 2.按图1-1在标题为“第一个应用程序”的窗体Form1上画两个标题分别为“欢迎您使用Visual Basic”和“请输入您的姓名”的标签（ Label1和Label2），Label1的字体为隶书，并且其能根据文本大小自动调整尺寸，Label2的字型为倾斜；然后再设计一个初始文本为空的文本框Text1. 图1-1 运行界面 3.按图1-2在标题为“命令按钮设置”的窗体Form1上画三个标题分别为“禁止用C3”、“允许用C3”和“C3”的命令按钮（C1、C2和C3）。运行时，如果单击“禁止用C3”按钮，则C3按钮无效（如图10-2所示）；如果单击“允许用C3”按钮，则C3按钮有效。 图1-2 运行界面 4.按图1-3在标题为“文本复制”的窗体Form1上画两个文本框（Text1和
中南大学现代远程教育课程（专科）考试复习题及答案 《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 设计计算器 实验报告 姓名: 专业: 学号: 二0 一一年十一月七日
设计功能完整的计算器，实现如下图所示按钮（除“ MC，“MR , “MS，“M+ ）及菜单功能，如图： 一、解题思路、分析： 对于我来说，设置一个完整的计算器是一个艰巨的任务，一开始想了一小段时间，自己试着编了一些，但就是无法达到一个完整的计算器，于是，就到网上去下载了一些有关计算 器的程序进行参考分析。首先先定义一些量，比如说前后两个操作数opl、op2，小数点是 否真存在的量DecimalFlag ，操作数个数NumOps上一次按键的类型等。接着对窗体进行初始化，同时设置所有变量为其初始。然后对各个键盘的命令进行编写程序，对0---9按键设 置为一个按键命令组，编写一个程序，同时加减乘除设置一个命令组，也编写一个程序，其 他按键都各自设置为一个命令，分别单独进行编写程序。同时在多个命令中都要对显示器中 的小数点进行分析，看它是否是真实存在。同时对于除法分母是否为0，也要加以考虑。 、源程序: Private Sub Form_Load() DecimalFlag = False NumOps = 0 LastI nput = "NONE" OpFlag ="" Text1.Text = Format(0, "0.") 'Decimal.Captio n = Format(0, ".") End Sub Opti on Explicit Dim Op1, Op2 Dim DecimalFlag As In teger Dim NumOps As In teger Dim LastInput 类型 Dim OpFlag Dim TempReadout ' 窗体的初始化过程 ' 设置所有变量为其初始值 前面输入的操作数 小数点仍然存在吗？ 操作数个数 指示上一次按键事件的 指示未完成的操作
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.doczj.com/doc/563989455.html,="统计程序" B．Form1.Caption="统计程序" C. Forml.Caption=统计程序 D．https://www.doczj.com/doc/563989455.html,=统计程序 8．函数String(n, "str")的功能是 B 。 A．把数值型数据转换为字符串 B．返回由n个字符组成的字符串 C．从字符串中取出n个字符 D．从字符串中第n个字符的位置开始取子字符串 9、定义变量如下： Dim MyVar MyVar =”come see me “ 若在立即窗口中显示MyVar的值，下面正确的是（ A ）
实验一 一 DDBAB,CC(D)DDC,ADDCA 二 windows 中断 工具箱 代码 分类 form2.show 有语法错误 错误 事件 结构化 文件名和结构 工程 代码 双击任意控件或右健快捷菜单选“代码窗口”vb的安装文件夹 属性 方法 font load 对象 实验二 一 BCBCC,CBBDA,CCCBA,CBDCC 二 form_click() interval,5000 vbp,frm top,left,height,width,像素 picture load locked font,alignment gotfocus,lostfocus 属性窗口，代码 实验三 一
A(BC)(BC)AA,A(BCD)DBB,B 二 3，4，5，6，8，10，11，12，14，15，16三 abs(x+y) (3+x*y)^2 (-b+sqr(b^2-4*a*c)/(2*a) sin(30*3.14/180)+exp(2) 四 int(rnd*71+20) x*y<0 x mod 3=0 or xmod 7=0 x>=10 and x<20 x>="A" and x<="Z" left(s,3) 或者,mid(s,1,3) 实验四 一 CDCDA,DBBAC 二 (1) 48.71E-01,-4.8712 (2) 关系，逻辑，数值 (3) 900，100，mid(a,2,1),c (4) m 1,2,3 print m & "月是第二季度" end select 三 (1) x=4 y=13 (2) 10 实验五 一 BCBAC 二 （1）for x=2 to 10 s*(1-1/x) (2) t<1E-6 (3) j
1、题目:（事件）单击窗体（响应)用输入框输入一自然数，判断就是＂正数”、＂负数或＂零”,并根据输入得数用消息框显示”正数"、”负数”或”零". 2、题目:（事件）单击窗体。（响应）求２０0～３0０之间既能被3整除又能被7整除得数.并求出所有数之与存入变量ＳＵＭ中 3、题目：单击窗体。（响应)已知S=1+1/４+１／9+1/1６+1/25+…+1／1０0，结果输出在窗体上。 4、题目：（事件）单击窗体.（响应）在窗体上打印数列２／1，３／2,5/3,8/5，1３/８…得前10项，并求其与，将与保存在变量s中。 5、题目：（事件）双击窗体。(响应)把一元钞票换成一分、二分与五分得硬币每种至少有一枚)，求出其所有得换法，把结果输出在窗体上。将所有得换法得数目存入变量N中 6、题目:单击窗体。）求１！+２！＋3!+4！＋5!并将结果输出到窗体上。结果存入变量S中 7、题目:（事件）单击窗体。（响应)生成一个一维数组（10个数组元素依此为: ' １5、23、７2、４3、9６、2３、３、65、88、１7 写程序求出这个数组中得最大值、最小值与平均值,并输出在窗体上。将最大值，最小值,平均值分别存入变量Max，Min，Aver中 8、题目:(事件）单击窗体。（响应)在窗体上输出100～２0０之间得所有合数。求出所有数之与存入SUＭ中所谓合数就是指自然数中能被1与本数整除以外，还能被其她数整除得数。 ９、题目：（事件）单击窗体.(响应）求10～20之间所有素数得乘积并输出在窗体上。将结果存入变量L中。 1０、题目：(事件）单击窗体。（响应)求1- 1/2＋1/3 －1/4 +……+ 1／99－1/10０得值。将结果存入变量J中。 １题 ｎ = InputＢoｘ（"输入一个自然数”） If n ＞0 Then rｅsulｔ = ”正数＂ ElseIf n < 0 Ｔhen ｒeｓult = ”负数" ElseIf n ＝ 0 Ｔhen result ＝"零＂ End If MsgＢox "输入得数据”& ｎ＆”为：”＆ rｅsuｌt 2题 Dｉｍ i As Inteｇer Fｏｒ i = 201 To 300 Ｉf ((i Mod 3） = 0) Aｎｄ((i Mod ７) = 0） Tｈen Ｐrinｔ (CStｒ(i)） sum = ｓum + i End Iｆ Ｎeｘt Ｐrint sum 3题 DiｍｉAｓ Inteｇeｒ ｓ = 0 For i = 1 To 1０ s ＝ s + 1 / (i ^ i) Next Print (s) ４题 Ｄim i，ｊ, ｋ， m As Integer s ＝ 0 :i = 2:j = １ For k = 1 To 10 s = s ＋ｉ / j ｍ＝ j Prｉnt (CSｔｒ(i)） & "／" ＆ＣＳtｒ(j) j = i ｉ = i + m Ｎexｔ 5题 Ｄｉｍ i, j，ｋAｓＩnｔegｅr For i = １ To １00 Fｏr j = 1 Ｔo 50 For k = 1 Tｏ 20 If （（i + 2 ＊j ＋ k * 5）＝ 100) Ｔｈｅn Print (CＳｔr(i)） Priｎｔ (CStr（j)） Pｒinｔ（CＳtｒ(k)） n ＝n + １
实验报告3: VB程序设计 二、计算二元一次方程。 1、目的和要求 （1）熟练掌握控件的使用。 （2）复习巩固系统给用户提供算数函数的用法。 2、内容和步骤 （1）创建窗体 窗体forml 由二个命令按钮command1、command2、四个标签labell、Iabel2、Iabel3、Iabel4、三个文本框textl、text2、text3组成 （2）设计窗体界面及属性 属性设置： （3）编写代码 Private Sub Comma nd1_Click() Dim a As Long, b As Long, c As Long Dim d As Long, t As Si ngle Dim x1 As Single, x2 As Single, x3 As Single, x4 As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a = 0 The n If b = 0 The n If c = 0 The n Label4.Caption = “方程有无穷多解“ Else Label4.Caption ="方程无解" End If Else x1 = (-c) / b Label4.Caption ="方程有一个解："& x1 End If
Else d = b * b - 4 * a * c
t = Sqr(Abs(d)) If (d >= 0) Then x1 = (-b + t) / (2 * a) x2 = (-b - t) / (2 * a) Label4.Caption ="方程有两个实数根: Else x3 = (-b) / (2 * a) x4 = t / (2 * a) Label4.Caption ="方程有两个复数根: End If End If End Sub Private Sub Comma nd2_Click() Textl.Text ="" Text2.Text ="" Text3.Text ="" Label4.Captio n ="" End Sub (4)保存工程，运行程序 3、调试过程及运行结果 4、实验心得 (1)要把求解过程中遇到的情况考虑全面。 (2)要善于利用系统提供的计算函数。x1=" & x1 & " x2=" & x2 x1=" & x3 & "+" & x4 & "i" & " x2=" & x3 & "-" & x4 & "i"
郑州大学VB实验报告书参考答案。。 以下内容均来自百度文库，所以仅供参考。。 不过经亲自测试习题及实验（一）的答案基本正确，除了实验题的3，4小题没有改字形字体颜色什么的。。 实验一 一、选择题 DDBAB,C(CD)DDC,ADDCA 二、填空题 Windows 中断 工具箱 代码 分类 form2.show 有语法错误 错误 事件 结构化 文件名和结构 工程 编写代码 双击任意控件或右健快捷菜单选“代码窗口” vb的安装文件夹 属性 方法 font load 对象 三、编程
1-1 Private Sub Command1_Click() Print Sqr(8), 8 ^ (1 / 3) End Sub 1-2 Private Sub Command2_Click() For i = 100 To 110 Print Sqr(i) Next i End Sub 1-3（基本设置在属性窗口完成！）Private Sub Command3_Click() Print "郑州大学在前进!" End Sub 1-4（基本设置在属性窗口完成！）Private Sub Command4_Click() Label1 = "蓝天、白云、绿水、青山" End Sub 实验二 一
BCBCC,CBBDA,CCCBA,CBDCC 二 form_click() interval,5000 vbp,frm top,left,height,width,像素picture load locked font,alignment gotfocus,lostfocus 属性窗口，代码 三 2-1 Private Sub Command1_Click() Label3 = Text1 * Text2 End Sub Private Sub Command2_Click() Label3 = Text1 / Text2 End Sub 2-2 Private Sub Command1_Click() Picture1.Visible = True