(完整版)《VB程序设计》实验报告

Dim x As Single, y As Single x = InputBox(\请输入x的值：\

If x > 10 Then y = Sqr(x) + Sin(x) ElseIf x < 10 Then

y = 2 * x ^ 3 + 6 '注意：乘号不能省略 Else y = 0 End If

Print \的值是\End Sub

实验3.4 由键盘输入（1～7）范围内的整数，试编程将其转换为中文表示的星期几，运行界面如图3-2所示。

Private Sub Command1_Click() Dim n As Integer, w As String '注意：w的类型必须为String n = Text1.Text If n = 1 Then w = \星期一\ ElseIf n = 2 Then w = \星期二\

ElseIf n = 3 Then w = \星期三\ ElseIf n = 4 Then w = \星期四\ ElseIf n = 5 Then w = \星期五\ ElseIf n = 6 Then w = \星期六\ ElseIf n = 7 Then w = \星期日\ Else

w = \错误的输入\ End If

Text2.Text = w End Sub

实验3.5（选做）由键盘输入3个数，试编程将它们的中间数打印出来

Private Sub Command1_Click() Dim a As Single, b As Single, c As Single, m As Single a = Text1.Text b = Text2.Text c = Text3.Text

If a >= b And b >= c Then m = b

ElseIf a >= c And c >= b Then m = c

ElseIf b >= a And a >= c Then n = InputBox(\请输入n：\ For i = 1 To n

a = Int(Rnd * 90) + 10 '随机生成一个两位数存于变量a中 Print a; '显示在屏幕 m = a

ElseIf b >= c And c >= a Then m = c

ElseIf c >= a And a >= b Then m = a Else m = b End If

Text4.Text = m End Sub

实验

4.1 编写过程

Commandl_Click，显示对话框输入n（n>0），循环n次，每次随机产生一个两位数，求出其中的偶数之和，并在标签框Label1上显示。 Private Sub Command1_Click() Dim n As Integer, i As Integer, a As Integer, s As Integer

Randomize '初始化随机数

上，以便校对（实际编程可以省略） If a Mod 2 = 0 Then s = s + a '判断是否为偶数 Next i

Label1.Caption = s End Sub

说明：随机生成两位数也可以用 a=(Int(Rnd*9)+1)*10+Int(Rnd*10)

实验

4.2 编写过程

Commandl_Click，用InputBox函数输入10个学生的成绩，统计后依次用标签控件Labell～Labe13显示优秀（85-100）、通过（60-84）和未通过（小于60）的人数。 Private Sub Command1_Click() Dim n1 As Integer, n2 As Integer, n3 As Integer, CJ As Integer

For i = 1 To 10

CJ = InputBox(\请输入成绩(一共10个成绩)：\

If CJ >= 85 And CJ <= 100 Then

n1 = n1 + 1 ElseIf CJ >= 60 And CJ <= 84 Then

n2 = n2 + 1 ElseIf CJ < 60 Then n3 = n3 + 1 End If Next i

Label1.Caption = n1 Label2.Caption = n2 Label3.Caption = n3 End Sub

实验4.3 编制事件程序 Command1_Click，执行该过程时输入n，并计算下列表达式的值，然后将计算结果在文本框控件Text1中显示。

Dim n As Integer, i As Integer, s As Single

n = InputBox(\请输入n：\ s = 1

For i = 2 To n

s = s + i / ((i + 1) * (i + 2)) Next i

Text1.Text = s End Sub

实验4.4 打印出所有的水仙花数，所谓水仙花数是指一个三位数，其各位数字立方和等于该数。例如，153是一水仙花数，因为 程序1：用3个数字组合成百位数的办法，生成所有的三位数进行判断。

Dim a As Integer, b As Integer, c As Integer 'a代表百位数字，b十位，c各位

Dim s As Integer 's存放组合成的三位数

For a = 1 To 9 '百位数字取值

Private Sub Command1_Click() 范围是1-9

For b = 0 To 9 '十位数字取值范围是0-9

For c = 0 To 9 '个位数字取值范围是0-9

s = a * 100 + b * 10 + c '组合成的三位数

If s = a * a * a + b * b * b + c * c * c Then '判断是否水仙花数 Print s End If Next c Next b Next a ---

程序2：将百位数拆分出每一位，来判断是否水仙花数。

Dim i As Integer '存放循环取值的三位数

Dim a As Integer, b As Integer, c As Integer 'a存放百位数字，b十位，c各位 For i = 100 To 999 a = Int(i/100)

b = Int((i - a * 100) / 10)

c = i Mod 10

If i = a * a * a + b * b * b + c * c * c Then '判断是否水仙花数 Print i End If Next i

实验4.5 用近似公式求值，当时不再累加。

Private Sub Command1_Click() Dim i As Integer, s As Single, t As Single t = 1 Do

i = i + 1

s = s + 1 / i ^ 2 Loop Until 1 / i ^ 2 < 10 ^ -5

Print Sqr(6 * s) End Sub

实验4.6（选做）一个两位数的正整数，如果将其个位数与十位数对调所生成的数称为对调数，如28是82的对调数。现给定一个两位的正整数，请找到另一个两位的