VB实验答案 简明版本.doc

实验11Private Sub Command1_Click()Label3.Caption = Text1.TextEnd Sub实验12Private Sub Form_Click()Text1.Text = Text1.Text + 1End SubText1的初始值设为0，Label1的Autosize属性设为True实验13Private Sub Command1_Click()Text1.FontName = 隶书Text1.FontSize = 25End SubPrivate Sub Command2_Click()Text2.Text = Text1.SelTextText2.FontName = Text1.FontNameText2.FontSize = Text1.FontSizeEnd SubText的滚动条在ScrollBars属性中设置实验14Private Sub Form_Click() Caption = 鼠标单击 Picture = LoadPicture(App.Path + COVER01.BMP)End SubPrivate Sub Form_DblClick() Caption = 鼠标双击 Picture = LoadPicture()End SubPrivate Sub Form_Load() Caption = 装入窗体 Picture = LoadPicture(App.Path + WINDOW.JPG)End Sub实验21Private Sub Command1_Click()r = Text1.Texta = 3.14Label2.Caption = Format(r * r * a, 0.00)End SubPrivate Sub Command2_Click()r = Text1.Texta = 3.14Label3.Caption = Format(2 * r * a, 0.00)End SubPrivate Sub Text1_LostFocus()If Not IsNumeric(Text1) Or Val(Text1) = 0 Then MsgBox 输入错误，请重新输入！, vbOKOnly, 警告 Text1.Text = Text1.SetFocusEnd IfEnd Sub实验22Private Sub Command1_Click()Text1.Text = UCase(Text1.Text)End SubPrivate Sub Command2_Click()Text1.Text = Len(Text1.Text)End Sub实验23方法一Private Sub Form_Click()Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer, f As Integerd = Int(Rnd * 900) + 100Print da = d 100b = (d Mod 100) 10c = d Mod 10 If c = 0 Then e = a + b * 10 Print 0 & e Else e = a + b * 10 + c * 100 Print e End IfEnd Sub方法二Private Sub Form_Click()num = Int(Rnd * 900) + 100Print numa = Left(num, 1)b = Mid(num, 2, 1)c = Right(num, 1)Print Spc(1); c; b; aEnd Sub实验24Private Sub Form_Load()Text1.Text = VisualBasic程序设计教程(第三版)Label1.Caption = Left(Text1.Text, 11)Label1.Font = Text1.FontLabel2.Caption = Mid(Text1.Text, 12, 6)Label2.Font = Text1.FontLabel3.Caption = Right(Text1.Text, 5)Label3.Font = Text1.FontEnd Sub实验25Private Sub Form_Click()Dim a!, b!, c!, d!, e! a = Val(InputBox(请输入一个正实数, 计算, ) b = Val(Format(a 2, 0.#) c = Format(Sqr(a), 0.#) d = Format(a 3, 0.#) e = Format(a (1 / 3), 0.#)Print b; Spc(2); c; Spc(2); d; Spc(2); eEnd Sub实验31Private Sub Command1_Click()x = Val(Text1.Text)If x 10 And x 50 Then y = 30 + 2.5 * 40 + 2 * (x - 50) If y = 150 Then Label3.Caption = y Else: Label3.Caption = 150 End IfEnd IfEnd Sub实验32Private Sub Command1_Click()Dim a!, b!, c!, t!a = Val(InputBox(输入a的值, 数据输入, )b = Val(InputBox(输入b的值, 数据输入, )c = Val(InputBox(输入c的值, 数据输入, )Print Tab(13); a; Tab(20); b; Tab(27); c; Tab(0); 排序前; Tab(12); a; Tab(19); b; Tab(26); cIf a b Then t = a a = b b = tEnd IfIf b c Then t = b b = c c = tEnd IfIf a b Then t = a a = b b = tEnd IfPrint Tab(0); 排序后; Tab(12); a; Tab(19); b; Tab(26); cEnd Sub实验33Private Sub Text2_LostFocus()m = Val(Text1.Text)n = Val(Text2.Text)If n Mod 2 = 1 Or n 4 * m Then MsgBox 输入数据错误，可能如下情况： & vbCr & 总脚数非偶数 & vbCr & 总脚数小于2倍的头数 & vbCr & 总脚数大于4倍的头数 & vbCr & 请重新输入, vbOKOnly, 警告 Text1.Text = Text2.Text = Text1.SetFocusEnd IfLabel3.Caption = (n - 2 * m) / 2Label2.Caption = (4 * m - n) / 2End Sub实验34Private Sub Command1_Click()a = Val(Text1.Text)b = Val(Text2.Text)Select Case Text3.TextCase + Text4.Text = a + bCase - Text4.Text = a - bCase * Text4.Text = a * bCase / Text4.Text = a / bEnd SelectEnd SubPrivate Sub Command2_Click()EndEnd Sub实验41Private Sub Form_Click()For i = 1 To 9Print Tab(15 - i); String(2 * i - 1, Trim(Str(i)Next iEnd Sub实验42Private Sub Command1_Click()Dim n As Double, pi As Doublepi = 2For n = 1 To 1000 pi = pi * (2 * n) 2 / (2 * n - 1) * (2 * n + 1) If n = 10 Then Print Tab(3); n=; Trim(Str(n); Tab(12); 近似值=; Format(pi, 0.00000) ElseIf n = 100 Then Print Tab(3); n=; Trim(Str(n); Tab(12); 近似值=; Format(pi, 0.00000) ElseIf n = 1000 Then Print Tab(3); n=; Trim(Str(n); Tab(12); 近似值=; Format(pi, 0.00000) End IfNext nEnd Sub实验43Private Sub Form_Click()Randomize: a = Int(Rnd * 9 + 1): n = Int(Rnd * 6 + 4)Print 当a=; Trim(Str(a); 时，n=; Trim(Str(n); 时，S=;For i = 1 To n - 1 Print String(i, Trim(Str(a) + +;Next iPrint String(n, Trim(Str(a)End Sub实验44Private Sub Form_Load()Print Spc(1); 正整数100-999所有水仙花数为： For x = 1 To 9 For y = 0 To 9 For z = 0 To 9 If 100 * x + 10 * y + z = x 3 + y 3 + z 3 Then Print Spc(1); Trim(Str(x); 3; +; Trim(Str(y); 3; +; Trim(Str(z); 3; =; x 3; +; y 3; +; z 3; =; 100 * x + 10 * y + z End If Next z Next y Next xEnd Sub实验45Private Sub Form_Load()Dim a1 As Double, b1 As Double, a2 As Double, b2 As Doublea1 = 100000: b1 = 0.01: i = 1Do While a1 = b1 a1 = a1 + 100000 b1 = b1 + 0.02 * 2 (i - 1) i = i + 1Loop Print 第; i; 天 富翁的付钱总数超过陌生人的付钱总数 Print 富翁付给陌生人钱的总数为：; Format(b1, 0.00); 元 Print 陌生人付给富翁钱的总数为：; Format(a1, 0.00); 元For j = 1 To 30 a2 = a2 + 100000 b2 = b2 + 0.02 * 2 (j - 2)Next j Print Print 第; j - 1; 天 Print 富翁付给陌生人钱的总数为：; Format(b2, 0.00); 元 Print 陌生人付给富翁钱的总数为：; Format(a2, 0.00); 元 Print 富翁将多付出：; Format(b2 - a2, 0.00); 元End Sub实验51Private Sub Form_Click()Dim num(1 To 10) As IntegerDim Ave!Ave = 0For i = 1 To 10Randomize: num(i) = Int(Rnd * 71 + 30)Print num(i); If i = 1 Then Max = num(i): Min = num(i) Else If num(i) Max Then Max = num(i) ElseIf num(i) 1 And i Mod 4 = 0 Then P