(完整word版)VB程序设计教程(第3版)课后实验完整答案

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．4

Private Sub Form_Click()

Caption = "单击窗体，改变图片"

Picture = LoadPicture(App.Path + "\n_015.bmp")

Print "欢迎使用VB"

End Sub

Private Sub Form_DblClick()

Cls

Caption = "双击窗体，卸去图片"

Picture = LoadPicture("") '

End Sub

Private Sub Form_Load()

Caption = "装入窗体"

Picture = LoadPicture(App.Path + "\n_016.bmp")

Print "装入图"

End Sub

Private Sub Form_Resize() ' 该事件的作用窗体始终与图一样大

'Caption = "窗体大小不变"

'Form1.Width = 260 * 16 ' 260是Tongji-2.bmp图的宽度，象素单位

'Form1.Height = 260 * 16 + 200 ' 260是图的高度，象素单位，200是窗体的标题栏高度End Sub

A．5

Sub Command1_Click()

Text1.FontName = "隶书"

Text1.FontSize = 25

End Sub

Sub Command2_Click()

Text2.Text = Text1.SelText

Text2.FontName = Text1.FontName

Text2.FontSize = Text1.FontSize

End Sub

B．1

Private Sub Command1_Click()

Text2 = Format(5 / 9 * (Val(Text1) - 32), "0.00")

End Sub

Private Sub Command2_Click()

Text1 = Format(9 / 5 * Val(Text2) + 32, "0.00")

End Sub

或

Private Sub Command1_Click()

Dim f!, c! ' 声明两个变量

f = Val(Text1)

c = 5 / 9 * (f - 32)

Text2 = Format(c, "0.00") ' 保留两位小数

End Sub

Private Sub Command2_Click()

Dim ff!, cc! ' 声明两个变量

cc = Val(Text2)

ff = 9 / 5 * cc + 32

Text1 = Format(ff, "0.00") ' 保留两位小数

End Sub

B．2

Label2 = Format(Val(Text1) * Val(Text1) * 3.14, "0.00") End Sub

Private Sub Command2_Click()

Label3 = Format(Val(Text1) * 3.14 * 2, "0.00")

End Sub

Private Sub Text1_LostFocus()

If Not IsNumeric(Text1.Text) Then

MsgBox "输入有非数字字符，请重新输入", , "警告"

Text1.Text = ""

Text1.SetFocus

End If

End Sub

或

Private Sub Command1_Click()

Label2 = Format(Val(Text1) * Val(Text1) * 3.14, "0.00") End Sub

Private Sub Command2_Click()

Label3 = Format(Val(Text1) * 3.14 * 2, "0.00")

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

If Not IsNumeric(Text1.Text) Then

Text1.Text = ""

End If

End If

End Sub

B．3

Private Sub Command1_Click()

n = Int(Log(2) / Log(1.008) + 1)

Label1 = n & "年后人数超过26亿"

End Sub

B．4

Private Sub Command1_Click()

Dim x, dx, cd

x = Text1.Text

dx = UCase(x)

cd = Len(x)

Print "大写字母为:"; dx

Print "字符串长度为:"; cd

End Sub

B．5

Text1 = Int(Rnd * 900 + 100)

End Sub

Private Sub Command2_Click()

Dim x%, x1%, x2%, x3%

x = Val(Text1)

x1 = x Mod 10 ' 分离出的个位数

x2 = (x Mod 100) \ 10 ' 分离出的十位数

x3 = x \ 100 ' 分离出的百位数

Label1 = x1 * 100 + x2 * 10 + x3

End Sub

B．6

Private Sub Form_Click()

Label1 = Left(Text1, 11)

Label2 = Mid(Text1, 12, 6)

Label3 = Right(Text1, 5)

End Sub

B．7

Private Sub Command1_Click()

Print

For i = 1 To 5

Print Tab(15 - i * 2); String(2 * i - 1, "★"); Spc(18 - 4 * (i - 1)); String(2 * i - 1, "★")

Next i

End Sub

Private Sub Command2_Click()

Cls

End Sub

进一步要求：

Private Sub Command1_Click()

Print

For i = 1 To 5

Print Tab(15 - i * 2); String(2 * i - 1, "★"); String(10 - (2 * i - 1), "☆"); String(2 * i - 1, "★")

Next i

End Sub

Private Sub Command2_Click()

Cls

End Sub

B．8

Private Sub Form_Click()

x = Val(InputBox("输入一正实数", "计算", 0))

pf = Format(x * x, "0.000")

pfg = Format(Sqr(x), "0.000")

lf = Format(x * x * x, "0.000")

lfg = Format(x ^ (1 / 3), "0.000")

Print "平方为:"; pf; Space(5); "平方根为:"; pfg; Space(5); "立方为:"; lf; Space(5); "立方根为:"; lfg

End Sub

C．1

Private Sub Form_Click()

Dim x!, y!

x = Val(InputBox("输入x的值"))

If x < 1000 Then

y = x

ElseIf x < 2000 Then

y = 0.9 * x

ElseIf x < 3000 Then

y = 0.8 * x

Else

y = 0.7 * x

End If

Print y

End Sub

C．2

Private Sub Form_Click()

Dim x!, y!

x = Val(InputBox("输入上网时间"))

If x < 10 Then

y = 30

ElseIf x < 50 Then

y = 30 + 2.5 * (x - 10)

Else

y = 30 + 2.5 * 40 + 2 * (x - 50)

End If

If y > 150 Then

y = 150

End If

Print y

End Sub

C．3

Private Sub Command1_Click()

Dim x!, y!, z!

x = InputBox("input x")

y = InputBox("input y")

z = InputBox("input z")

Print " x y z"

Print " 排序前"; x; " "; y; " "; z

If x < y Then t = x: x = y: y = t

If x < z Then t = x: x = z: z = t

If y < z Then t = y: y = z: z = t

Print " 排序后" & x & " " & y & " " & z End Sub

Private Sub Command2_Click()

Dim x!, y!, z!

x = InputBox("input x")

y = InputBox("input y")

z = InputBox("input z")

Print " x y z"

Print " 排序前"; x; " "; y; " "; z

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

Print " 排序后" & x & " " & y & " " & z End Sub

C．4

Dim a(3) As Integer

Private Sub Command1_Click()

Picture1.Cls

For i = 0 To 2

a(i) = Int(Rnd * 100 + 200)

Picture1.Print a(i)

Next i

End Sub

Private Sub Command2_Click()

Picture2.Cls

Dim z As Integer

For i = 0 To 1

If a(i) > a(i + 1) Then

z = a(i + 1)

a(i + 1) = a(i)

a(i) = z

Next i

Picture2.Print a(0)

Picture2.Print a(1)

Picture2.Print a(2)

End Sub

C．5

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倍的头数，请重新输入")

Text2 = ""

Text2.SetFocus

Else

x = n / 2 - m

Label2 = y

Label3 = m - y

End If

End If

End Sub

C．6

Private Sub Command1_Click()

Dim a!, b!, c!, x1!, x2!, de!

a = Text1

b = Text2

c = Text3

de = b * b - 4 * a * c

t = 2 * a

If de = 0 Then

Text4 = Format(-b / t, "0.00")

Text5 = Format(-b / t, "0.00")

ElseIf de > 0 Then

Text4 = Format((-b + Sqr(de)) / t, "0.00")

Text5 = Format((-b - Sqr(de)) / t, "0.00")

Text4 = Format(-b / t, "0.00") & "+" & Format(Sqr(Abs(de)) / t, "0.00") & "i" Text5 = Format(-b / t, "0.00") & "-" & Format(Sqr(Abs(de)) / t, "0.00") & "i" End If

End Sub

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

Text3 = ""

Text4 = ""

Text5 = ""

End Sub

C．7

Private Sub Text3_LostFocus()

Select Case Trim(Text3)

Case "+"

Text4 = Val(Text1) + Val(Text2)

Case "-"

Text4 = Val(Text1) - Val(Text2)

Case "*"

Text4 = Val(Text1) * Val(Text2)

Case "/"

If Val(Text2) = 0 Then

MsgBox "分母为零，重新输入"

Text2 = ""

Text2.SetFocus

Else

Text4 = Val(Text1) / Val(Text2)

End If

End Select

End Sub

C．8

Private Sub Text1_LostFocus()

Select Case Trim(Text1)

Case 1

Text2 = "Monday"

Case 2

Text2 = "Tuesday"

Case 3

Text2 = "Wednesday"

Case 4

Text2 = "Thursday"

Case 5

Text2 = "Friday"

Case 6

Text2 = "Saturday"

Case 7

Text2 = "Sunday"

Case Is > 7, Is < 1

MsgBox "数字为1~7，重新输入"

Text1 = ""

Text1.SetFocus

End Select

End Sub

或者

Private Sub Text1_LostFocus()

If Text1 > 7 Or Text1 < 1 Then

MsgBox "数字为1~7，重新输入"

Text1 = ""

Text1.SetFocus

Else

Text2 = Choose(Text1, "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday")

End If

End Sub

D．1

Private Sub Form_Click()

For i = 1 To 9

Print Tab(10 - i); String(2 * i - 1, Trim(Str(i)))

Next i

End Sub

D．2

Private Sub Form_Click()

For i = 1 To 10 Step 1

Print Tab(i); String((20 - 2 * i), Chr(64 + i))

Next i

End Sub

D．3

Private Sub Command1_Click()

Dim s!, t!, i&

s = 1

t = 1

For i = 1 To 100000

s = s + 1 / t

If 1 / t < 0.00001 Then Exit For

Next i

Print "For结构"; s, i; "项"

End Sub

D．4

Private Sub Command1_Click()

Dim n&, pi#, i&

n = InputBox("输入n值")

pi = 2

For i = 1 To n

pi = pi * (2 * i) / (2 * i - 1) * (2 * i) / (2 * i + 1) Next i

Print "当n=" & n & "时，pi="; pi

End Sub

D．5

Private Sub Form_Click()

Dim s!, t!, i!, a%, n%

a = Int(Rnd * 9 + 1)

n = Int(Rnd * 6 + 5)

t = 0: s = 0

Print "a="; a, "n="; n

For i = 1 To n

t = t * 10 + a

s = s + t

Print t;

Next i

Print

Print "s="; s

End Sub

D．6

Private Sub Command1_Click()

Dim s As Integer

s = 0

For i = 1 To 9

For j = 0 To 9

For k = 0 To 9

s = i * 100 + j * 10 + k

If s = i ^ 3 + j ^ 3 + k ^ 3 Then

Print s

Next k

Next j

Next i

End Sub

Private Sub Command3_Click()

formd6.Hide

main.Show

End Sub

D．7

Private Sub Command1_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

End Sub

D．8

Private Sub Command1_Click()

s = 0

x0 = 0.01

For i = 1 To 30

s = s + x0

x0 = x0 * 2

Next i

Print s

End Sub

D．9

Private Sub Command4_Click()

Picture1.Cls

Picture1.Print "x课安排在"; "y课安排在"; "z课安排在" Picture1.Print ""

For z = 5 To 6

For x = 1 To z - 2

For Y = x + 1 To z - 1

X1 = Choose(Weekday(x), "周一", "周二", "周三", "周四", "周五", "周六", "周日") Y1 = Choose(Weekday(Y), "周一", "周二", "周三", "周四", "周五", "周六", "周日") z1 = Choose(Weekday(z), "周一", "周二", "周三", "周四", "周五", "周六", "周日") Picture1.Print " "; X1; " "; Y1; " "; z1

Next Y

Next x

Next z

End Sub

E．1

Private Sub Form_Click()

Dim a(1 To 10) As Integer

For i = 1 To 10

a(i) = Int(Rnd * 71 + 30)

Print a(i); " ";

Next i

Max = a(1)

Min = a(1)

Avg = a(1)

For i = 2 To 10

If a(i) > Max Then Max = a(i)

If a(i) < Min Then Min = a(i)

Avg = Avg + a(i)

Next i

Avg = Avg / 10

Print

Print "Max="; Max; " Min="; Min; " Avg="; Avg

End Sub

E．2

Private Sub Form_Click()

Dim a

a = Array(56, 78, 98, 88, 76, 78)

For i = 0 To 5

Print String(a(i) \ 5, "◆"); a(i)

Print

Next i

End Sub

E．3

Dim a%(19)

Private Sub Command1_Click()

Picture1.Cls

For i = 0 To 19

a(i) = Int(Rnd * 101)

Picture1.Print a(i); " ";

If (i + 1) Mod 4 = 0 Then Picture1.Print

Next i

End Sub

Private Sub Command2_Click()

Picture2.Cls

Dim s(5 To 9)

For i = 0 To 19

k = a(i) \ 10

Select Case k

Case 0 To 5

s(5) = s(5) + 1

Case 9 To 10 '90～100分的人数

s(9) = s(9) + 1

Case 6 To 8 ' 存放其他三个分数段的下标有规律，根据K获得s(k) = s(k) + 1

End Select

Next i

For i = 5 To 9

If s(i) <> 0 Then Picture2.Print "s("; i; ")的人数有"; Format(s(i), "0"); "个" Next i

End Sub

E．4

Private Sub Command1_Click()

Picture1.Cls

Dim d%(1 To 10)

For i3 = 1 To 10

Randomize

d(i3) = Int(Rnd * 91 + 10)

Next i3

For i = 1 To 10

For j = 1 To 10 - i

If d(j) < d(j + 1) Then

t = d(j): d(j) = d(j + 1): d(j + 1) = t

End If

Next j

Next i

For i = 1 To 10: Picture1.Print d(i);

If i Mod 5 = 0 Then Picture1.Print

Next i

End Sub

E．5

Dim a%(3, 3), b%(3, 3)

Private Sub Form_Load()

For i = 0 To 3

For j = 0 To 3

a(i, j) = Int(Rnd * 36 + 35)

b(i, j) = Int(Rnd * 41 + 100)

Next j

Next i

End Sub

Private Sub Command1_Click()

Picture1.Cls

For i = 0 To 3

For j = 0 To i

Picture1.Print a(i, j); " ";

Next j

Picture1.Print

Next i

End Sub

Private Sub Command2_Click()

Picture2.Cls

For i = 0 To 3

For j = i To 3

Picture2.Print Tab(j * 6); b(i, j);

Next j

Picture2.Print

Next i

End Sub

Private Sub Command3_Click()

Picture3.Cls

sa = 0

For i = 0 To 3

sa = sa + a(i, i)

Next i

sb = 0

For i = 0 To 3

sb = sb + b(i, 3 - i)

Next i

Picture3.Print "A数组主对角线元素和为："; sa Picture3.Print "B数组副对角线元素和为："; sb End Sub

E．6

Private Sub Form_Click()

n = InputBox("输入n值")

ReDim a6%(n + 1, n + 1)

a6(0, 0) = 1: a6(1, 1) = 1: a6(1, 0) = 1

For i = 2 To n + 1

For j = 2 To i

a6(i, j) = a6(i - 1, j - 1) + a6(i - 1, j) Picture1.Print a6(i, j); "";

Next j

Picture1.Print

Next

End Sub

E．7

Private Sub Form_Load()

List1.Clear

List1.AddItem "大学计算机基础"

List1.AddItem "C/C++程序设计"

List1.AddItem "VB程序设计"

List1.AddItem "Web程序设计"

List1.AddItem "多媒体技术与应用"

List1.AddItem "数据库技术与应用"

List1.AddItem "网络技术与应用"

List1.AddItem "硬件技术基础"

List1.AddItem "软件技术技术基础"

End Sub

Private Sub List1_Click()

If List2.ListCount >= 5 Then

MsgBox ("超过5门课程，不能再选")

Exit Sub

Else

List2.AddItem List1.Text

List1.RemoveItem List1.ListIndex

End If

End Sub

E．8

Sub Combo1_KeyPress(KeyAscii As Integer) Select Case KeyAscii

Case 48 To 57, 13

Case Else

KeyAscii = 0

End Select

If KeyAscii = 13 Then

Combo1.AddItem Combo1.Text

Combo1.Text = ""

End If

End Sub

Private Sub Command1_Click()

Dim min%, max%

min = Val(Combo1.List(0))

max = Val(Combo1.List(0))

imin = 0

imax = 0

For i = 1 To Combo1.ListCount - 1

If Val(Combo1.List(i)) > max Then

imax = i

max = Combo1.List(i)

ElseIf Val(Combo1.List(i)) < min Then

imin = i

min = Combo1.List(i)

End If

Next i

t = Combo1.List(0)

Combo1.List(0) = Combo1.List(imin)

Combo1.List(imin) = t

t = Combo1.List(Combo1.ListCount - 1)

Combo1.List(Combo1.ListCount - 1) = Combo1.List(imax) Combo1.List(imax) = t

End Sub

E．9

Private Sub Form_Click()

For i = 0 To Screen.FontCount - 1

If Asc(Left(Screen.Fonts(i), 1)) < 0 Then

Picture1.Print Screen.Fonts(i)

Picture2.FontName = Screen.Fonts(i)

Picture2.Print "商丘师范学院"

End If

Next i

End Sub

E．10

Private Type clerk

number As String * 3

name As String * 5

salary As Integer

End Type

Dim a(0 To 4) As clerk, n%

Private Sub Command1_Click()

If n >= 5 Then

MsgBox ("输入人数超过数组声明的个数")

Else

With a(n)

.number = Text1

.name = Text2

.salary = Text3

Picture1.Print a(n).number, a(n).name, a(n).salary Print

End With

n = n + 1

Text1 = ""

Text2 = ""

Text3 = ""

End If

End Sub

Private Sub Command2_Click()

Dim t As clerk, i%, j%

For i = 0 To n - 1

For j = i To n - 1

If a(i).salary < a(j + 1).salary Then

t = a(i): a(i) = a(j + 1): a(j + 1) = t

End If

Next j

Next i

Picture1.Cls

Picture1.Print "工号姓名工资" For i = 0 To n - 1

Picture1.Print a(i).number, a(i).name, a(i).salary

Print

Next i

End Sub

F．1

Private Sub Form_Click()

Dim a(1 To 10), amin, i%

For i = 1 To 10

a(i) = -Int(Rnd * 101 + 300)

Print a(i);

Next i

Call s(a(), amin)

Print

Print "min="; amin

End Sub

Sub s(b(), min)

Dim i%

min = b(LBound(b))

For i = LBound(b) + 1 To UBound(b)

If b(i) < min Then min = b(i)

Next i

End Sub

F．2

Private Sub Command1_Click()

Dim mm%, nn%

mm = Val(Text1)

nn = Val(Text2)

Picture1.Print mm; Tab(6); nn; Tab(12); gcd(mm, nn) End Sub

Function gcd%(ByVal m%, ByVal n%)

If m < n Then t = m: m = n: n = t

r = m Mod n

Do While (r <> 0)

m = n: n = r: r = m Mod n

Loop

gcd = n

End Function

F．3

Dim x!

Private Sub Command1_Click()

Print "调用标准函数Sin的结果"; Sin(x)

End Sub

Private Sub Command2_Click()

Print "调用自定义函数MySin的结果"; MySin(x) End Sub

Function MySin(x!) As Double

Dim i%, t!, s!

t = x

s = t

i = 1

Do While Abs(t) > 0.00001

t = -1 * t * x * x / ((i + 1) * (i + 2))

s = s + t

i = i + 2

Loop

MySin = s

End Function

Private Sub Command3_Click()

x = InputBox("输入要计算正弦函数的角度值x") x = x * 3.14 / 180

End Sub

F．4

Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then

If Not IsNumeric(Text1) Then

MsgBox "输入非数字串，重新输入"

Text1.Text = ""

Text1.SetFocus

Else

If IsH(Text1) Then

Picture1.Print Text1; " ★"

Else

Picture1.Print Text1

End If

Text1 = ""

End If

End If

End Sub

Function IsH(ss As String) As Boolean

Dim i%, Ls%

IsH = True

ss = Trim(ss)

Ls = Len(ss)

For i = 1 To Ls \ 2

If Mid(ss, i, 1) <> Mid(ss, Ls + 1 - i, 1) Then

IsH = False

Exit Function

End If

Next i

End Function

F．5

Function prime(ByVal m As Integer) As Boolean

prime = True

Dim i%

For i = 2 To m - 1

If (m Mod i) = 0 Then prime = False: Exit Function '注意冒号和exit的范围Next i

End Function

Private Sub Command1_Click()

n = 0

For i = 6 To 100 Step 2

For j = 3 To i \ 2

If prime(j) Then

If prime(i - j) Then

List1.AddItem i & " =" & j & " +" & i - j

n = n + 1

End If

End If

Next j

Next i

Picture1.Print " 6和100之间共有"; n; "对素数和"

End Sub

F．6

Dim a%()

Private Sub Form_Click()

Print "1000以内的完数为："

For i = 1 To 1000

If IsWs(i) Then

Print i; "=1";

For j = 1 To UBound(a)

Print "+"; a(j);

Next j

Print

End If

Next i

End Sub

Function IsWs(m) As Boolean

Dim s%

s = 0

For i = 1 To m \ 2

If m Mod i = 0 Then

ReDim Preserve a(j)

a(j) = i

VB程序设计实验报告

《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程序设计实验教程习题答案

实验教材实验一 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程序设计实验要求及报告

上海立信会计学院本科实验报告 班级： 学号： 姓名： 指导教师： 系部： 专业： 实验时间： 实验3 选择结构 一、 实验目的 1． 掌握单分支、双分支和多分支条件语句的使用 2． 掌握情况语句的使用及其与多分支条件语句之间的区别。 二、实验要求 1． 在C:\下建立子文件夹“VB 实验3”，按照题目要求，在该文件夹下为各题保存相应的文件，如本实验中的第一题，需保存的文件有：工程文件、窗体文件 及可执行文件（），本实验中的第二题，需保存的文件有：工程文件、窗体文件 及可执行文件（），其余实验依此类推。 2． 撰写实验过程中出现了哪些问题、错误，你是如何解决的，做一个小结。 三、 实验内容： 1. 编一程序输入上网的时间并计算上网费用，计算的方法如下： 费用= 50250~102.51030?? ???>≤>≤小时上网时间元，每小时小时上网时间元，每小时小时上网时间元，基数 同时为了鼓励多上网，采用累进计费制，但每月收费最多不超过150元。上网时间在文本框中输入；上网费用在标签中输出，所有控件字体默认、大小为小四。要求使用多分支结构（IF THEN ELSEIF ）编写，效果如图3-1所示。

图3-1 Option Explicit Private Sub Command1_Click() Dim s!, sum! s = Val If s <= 0 Then MsgBox "上网时间不能为负数和零", , "输入错误" Text1 = "" Else If s <= 10 Then sum = 30 ElseIf s > 10 And s <= 50 Then sum = 30 + (s - 10) * ElseIf s > 50 And s <= 60 Then sum = 130 + (s - 50) * 2 Else sum = 150

VB课程实验报告

山西财经大学《程序设计（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)

VB实验一 实验报告

实验报告一 课程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程序设计教程第四版课后答案

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))

VB程序设计教程(第3版)课后实验答案最新版2

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

《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

VB程序设计实验报告

《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 程序设计学习与实验指导答案 上篇学习指导 第1章Visual Basic 概述 1.事件 2.查看对象 3.工程 4.视图属性窗口 5.窗体编辑器 第2章面向对象程序设计初步 1.控件 2.事件 3.类属性 4.属性 5.略 https://www.sodocs.net/doc/bd11742073.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#

vb程序设计实例

vb程序设计实例 2009-5-22 15:37 提问者：淘淘的某在|悬赏分：20 |浏览次数：1688次 编写程序，设银行定期存款的年利率为：1年期2.25%，2年期2.43%，3年期为2.70%，5年期为2.88%（不记复利）。今有X元，5年以后使用，共有如下6中存法： ①存一次5年期； ②存一次3年期，一次2年期； ③存一次3年期，两次1年期； ④存两次2年期，一次1年期； ⑤存一次2年期，三次1年期； ⑥存五次1年期. 分别计算各种存法5年后到期的本息合计，如图所示 2009-5-22 17:06 最佳答案 Private Sub Form_Activate() '1年期2.25%，2年期2.43%，3年期为2.70%，5年期为2.88%（不记复利）。今有X元，5年以后使用，共有如下6中存法： Const x1 As Double = 0.0225, x2 As Double = 0.0243, x3 As Double = 0.027, x5 As Double = 0.0288 Dim x As Double x = Val(InputBox("")) Print "①存一次5年期,5年后到期的本息合计"; ss(x, 5, x5) Print "②存一次3年期，一次2年期,5年后到期的本息合计"; ss(ss(x, 3, x3), 2, x2) Print "③存一次3年期，两次1年期,5年后到期的本息合计"; ss(ss(ss(x, 3, x3), 1, x1), 1, x1) Print "④存两次2年期，一次1年期,5年后到期的本息合计"; ss(ss(ss(x, 2, x2), 2, x2), 1, x1) Print "⑤存一次2年期，三次1年期,5年后到期的本息合计"; ss(ss(ss(ss(x, 2, x2), 1, x1), 1, x1), 1, x1) Print "⑥存五次1年期,5年后到期的本息合计"; ss(ss(ss(ss(ss(x, 1, x1), 1, x1), 1, x1), 1, x1), 1, x1) End Sub Private Function ss(ByVal a As Double, b As Integer, c As Double) As Double ss = a + a * c * b End Function Private Sub Form_Load()

VB设计计算器实验报告

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程序设计教程 实验2答案

41011066付乾峰资源1103实验2 自测练习1，程序 Private Sub Command1_Click() Dim s s = Text1.Text Label1.Caption = Left(s, 2) End Sub Private Sub Command2_Click() Dim s s = Text1.Text Label2.Caption = Right(s, 2) End Sub Private Sub Command3_Click() Dim s s = Text1.Text Text1.Text = Label1.Caption & Label2.Caption End Sub 截图

自测练习2，程序 Private Sub Command1_Click() Dim m%, a%, b%, c%, d% m = V al(Text1.Text) a = m Mod 10 b = m \ 10 Mod 10 c = m \ 100 Mo d 10

d = m \ 1000 a = (a + 7) Mod 10 b = (b + 7) Mod 10 c = (c + 7) Mo d 10 d = (d + 7) Mod 10 Print "加密前的4位整数是" & m Print "加密后的结果是" & a & b & c & d End Sub Private Sub Command2_Click() End End Sub 截图 “我和校庆合张影，我给校庆送祝福”——北京科技大学学生公寓九斋活动策划

一、活动名称 “我和校庆合张影，我给校庆送祝福” ——北京科技大学学生公寓九斋活动 二、活动意义 1.在校庆前，表达九斋学员对北科60年校庆的祝福 2.展现九斋学子积极向上的精神风貌 3.加深学生与楼层长之间的友谊便于以后的管理 4.调动大家对校庆的热情与关注欲望 5.增进同学与同学之间的联系 活动地点及时间 地点：九斋一楼大厅校篮球场 时间：2011年3月20日-25日 三、活动对象 北京科技大学九斋公寓所有学生 四、内容： 1.活动时间推进表 时间任务

实验报告VB程序设计

实验报告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程序设计实验报告

湖北文理学院 VB程序设计课程实验报告 学院物电学院 专业自动化 班级 1211 学号

姓名王亮 任课教师王福林 实验一、VB控制结构 一、实验目的 1.掌握选择语句的使用 2.掌握循环语句的使用 二、实验内容 1、选择语句 程序1：创建应用程序。要求：单击窗体可弹出输入框，任意输入三个数，然后按从小到大的顺序输出到窗体上。 程序2：创建应用程序。要求：单击窗体可弹出一输入框，任意输入一个正整数，在窗体上显示该整数是否为素数的字样。 2、循环语句 程序3：创建应用程序。要求：单击窗体可显示一个由“*”组成的平行四边形图案。 程序4：创建应用程序，其功能是显示所有的水仙花数。 三、实验记录 程序1如下： Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer, t As Integer '

定义a,b,c,t为整形变量 Cls '清屏 a = Val(InputBox("请输入第1个数：")) '给a赋值 b = Val(InputBox("请输入第2个数：")) '给b赋值 c = Val(InputBox("请输入第3个数：")) '给c赋值 If a > b Then t = a: a = b: b = t '如果a>b，把a的值赋给t，b的值赋给a，t的值赋给b If b > c Then '嵌套，如果b>c t = b: b = c: c = t '把b的值赋给t，b 的值赋给c，t的值赋给c If a > b Then '再次嵌套，如果a>b t = a '把a的值赋给t a = b 'b的值赋给a b = t 't的值赋给b End If End If Print a; "、"; b; "、"; c '输出 a "、"b;"、"; c End Sub Private Sub Command2_Click() End '退出程序 End Sub 程序2如下： Private Sub Command1_Click() Dim i As Integer, k As Integer, n As Integer '定义整形变量

vb程序设计实验指导习题答案

P178 五 1 Private Sub Form_DblClick() '双击窗体时，通过InputBox输入n，求1/2+1/2^2....+1/2^n Dim n As Integer n = InputBox("输入n的值：") For i = 1 To n s = s + 1 / 2 ^ i Next Print "1/2+1/2^2+...+1/2^" & n & "=" & s End Sub P185五 Dim a(9) As Integer Private Sub Command1_Click() '在文本框显示10个两位随机整数，逗号分隔 Text1.Text = "" For i = 0 To 9 a(i) = Int(Rnd * 90 + 10) Text1.Text = Text1.Text & a(i) & "," Next i Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) End Sub Private Sub Command2_Click() '消息框显示最小值 m = a(0) For i = 1 To 9 If a(i) < m Then m = a(i) Next MsgBox "10个数的最小值为：" & m End Sub Private Sub Command3_Click() '消息框显示最大值 m = a(0) For i = 1 To 9 If a(i) > m Then m = a(i) Next MsgBox "10个数的最大值为：" & m End Sub Private Sub Command4_Click() '消息框显示平均值 For i = 0 To 9 m = m + a(i) Next MsgBox "10个数的平均值为：" & m / 10 End Sub P169 2 P169 3 Private Sub Command1_Click() Label1.Top = Label1.Top - Label1.Height / 2 Label1.Height = Label1.Height * 2 Label1.Left = Label1.Left - Label1.Width / 2 Label1.Width = Label1.Width * 2 Label1.FontSize = Label1.FontSize * 2 End Sub P169 4 Private Sub VS1_Change() Text1.Text = VS1.V alue End Sub Private Sub VS1_Scroll() Text1.Text = VS1.V alue End Sub P169 5 Private Sub Command1_Click() For i = List1.ListCount - 1 To 0 Step -1 List2.AddItem List1.List(i) Next i List1.Clear End Sub

VB程序设计指导实验指导与习题解答上机答案

自测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程序设计教程(第2版)实验1

Private Sub Comma nd1_Click() Labell.Ca ption ="我们这学期学习的 VB" End sub Private Sub Comma nd1_Click() Label1.Visible = True End Sub Private Sub Comma nd2_Click() Label1.Visible = False End Sub Cj Ifll ■ Mnnt IFomfl 7愛画 ft* ?在开始上课 J 同a JI?p fiaiLi Sa(M IftPJ 回0 AGd it5l￡) nU) Bm uitp WCUfl ?理 - n - "SI D - ? ni ■ '■話訊關 di CtM?J h 騷 A 阖 VS ? CnrrTTund^ E^BBaJhal I ■ esff I rw JT 沁讥 V a^JBWWWf. gjL Fdu- 丄r-… Di? dill Trai >tJuIr rdu- k^rlirhn-i (Horrij □ku -'l L*?J ? 0 - I UB J. Wl Tra h->fM *1$ S 如口 2 0 Icdii jrh I M K I L ET fcudtz 靳■Eur ?i MWT UT M .H I 'iiLlft/a >—L L F-I -L I □-MwLum- ■Kcu -J 0 - hfRllL D - hu Qkul ■ -T-- rHh 強 工S ： -Mgw 片―刖HlfckWtl Jl+ttn iiA|￡-i 疤凹 IftPJ Ac 曲 断園 BW? Uip WCfflO ■阙 卑-匕-F 口 E JL 码【■亡--* II)■ 时Ef 卩 甘整闫Jfa 竝皿1?4 跖 GtMnJ "T E A IS1 i “= E Q _l ? e ■■■ 谊埔入密码 ■iTextl )-M 期 追出(\1_ |T ?rid Tq ?if■ trtSB ||4MU ；B I U ?^H ?hL ^p^vun :■KhCdLir JLrdLj. :■HiRa"iIi dill Tm :WULdU 卜+[t ?? hib D - I □utLril Tiv IT-UI ] ■ D - !_■" JdhI r ■ -utiHKCOw- 'ta-URLicLi n griL Ir^ Udi LiCkZg 4>?r ?i LICV ra a ,

大一《VB面向对象程序设计》作业及实验报告书_答案

实验一 一 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

vb程序设计教程第四版课后答案.doc

vb 程序设计教程第四版课后答案【篇一：visual_basic 程序设计教程(第4 版)_课后答案】 >第一章习题参考答案 一、填空题 1、对象事件驱动 2、编译运行模式解释运行模式 二、简答题 1、简述vb 的特点。 答：①可视化的程序设计方法 ②面向对象的程序设计思想 ③事件驱动的编程机制 ④结构化的程序设计语言 ⑤高度的可扩充性 ⑥强大的数据库访问能力 ⑦支持动态数据交换 ⑧支持对象链接与嵌入 2、简述vb 的安装过程。 答：①向光驱中放入vb 安装光盘； ②计算机将运行自动安装程序，若没有，执行vb 目录下的 setup.exe ；③根据提示逐一回答问题，并点击“下一步”； ④点击“完成”； 2、如何启动vb 。 答：三种方法： ①单击“开始”按钮，选择“程序”菜单下的“microsoft visual basic 6.0 中文版”菜单项并单击； ②双击桌面上的vb6.0 快捷图标； ③在“开始”菜单的运行对话框中输入命令来启动vb ； 第二章习题参考答案 一、选择题： 1-10 、dcacdbcbbc 11-20 、badcabbaab 21-29 、aacbbcddc 二、填空题 1．窗体、控件

2．属性值 3．属性窗口设置、代码窗口设置 4．事件过程 5．对象名、下划线、事件名 6．form_click 第三章习题参考答案 一、选择题 1、b 2、c 3 、a4、b5、a6、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