VB實(shí)驗(yàn)答案 簡明版本.docVIP

實(shí)驗(yàn)11Private Sub Command1_Click()Label3.Caption = Text1.TextEnd Sub實(shí)驗(yàn)12Private Sub Form_Click()Text1.Text = Text1.Text + 1End SubText1的初始值設(shè)為0，Label1的Autosize屬性設(shè)為True實(shí)驗(yàn)13Private Sub Command1_Click()Text1.FontName = 隸書Text1.FontSize = 25End SubPrivate Sub Command2_Click()Text2.Text = Text1.SelTextText2.FontName = Text1.FontNameText2.FontSize = Text1.FontSizeEnd SubText的滾動(dòng)條在ScrollBars屬性中設(shè)置實(shí)驗(yàn)14Private Sub Form_Click() Caption = 鼠標(biāo)單擊 Picture = LoadPicture(App.Path + COVER01.BMP)End SubPrivate Sub Form_DblClick() Caption = 鼠標(biāo)雙擊 Picture = LoadPicture()End SubPrivate Sub Form_Load() Caption = 裝入窗體 Picture = LoadPicture(App.Path + WINDOW.JPG)End Sub實(shí)驗(yàn)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 輸入錯(cuò)誤，請(qǐng)重新輸入！, vbOKOnly, 警告 Text1.Text = Text1.SetFocusEnd IfEnd Sub實(shí)驗(yàn)22Private Sub Command1_Click()Text1.Text = UCase(Text1.Text)End SubPrivate Sub Command2_Click()Text1.Text = Len(Text1.Text)End Sub實(shí)驗(yàn)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實(shí)驗(yàn)24Private Sub Form_Load()Text1.Text = VisualBasic程序設(shè)計(jì)教程(第三版)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實(shí)驗(yàn)25Private Sub Form_Click()Dim a!, b!, c!, d!, e! a = Val(InputBox(請(qǐng)輸入一個(gè)正實(shí)數(shù), 計(jì)算, ) 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實(shí)驗(yàn)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實(shí)驗(yàn)32Private Sub Command1_Click()Dim a!, b!, c!, t!a = Val(InputBox(輸入a的值, 數(shù)據(jù)輸入, )b = Val(InputBox(輸入b的值, 數(shù)據(jù)輸入, )c = Val(InputBox(輸入c的值, 數(shù)據(jù)輸入, )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實(shí)驗(yàn)33Private Sub Text2_LostFocus()m = Val(Text1.Text)n = Val(Text2.Text)If n Mod 2 = 1 Or n 4 * m Then MsgBox 輸入數(shù)據(jù)錯(cuò)誤，可能如下情況： & vbCr & 總腳數(shù)非偶數(shù) & vbCr & 總腳數(shù)小于2倍的頭數(shù) & vbCr & 總腳數(shù)大于4倍的頭數(shù) & vbCr & 請(qǐng)重新輸入, vbOKOnly, 警告 Text1.Text = Text2.Text = Text1.SetFocusEnd IfLabel3.Caption = (n - 2 * m) / 2Label2.Caption = (4 * m - n) / 2End Sub實(shí)驗(yàn)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實(shí)驗(yàn)41Private Sub Form_Click()For i = 1 To 9Print Tab(15 - i); String(2 * i - 1, Trim(Str(i)Next iEnd Sub實(shí)驗(yàn)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實(shí)驗(yàn)43Private Sub Form_Click()Randomize: a = Int(Rnd * 9 + 1): n = Int(Rnd * 6 + 4)Print 當(dāng)a=; Trim(Str(a); 時(shí)，n=; Trim(Str(n); 時(shí)，S=;For i = 1 To n - 1 Print String(i, Trim(Str(a) + +;Next iPrint String(n, Trim(Str(a)End Sub實(shí)驗(yàn)44Private Sub Form_Load()Print Spc(1); 正整數(shù)100-999所有水仙花數(shù)為： 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實(shí)驗(yàn)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; 天 富翁的付錢總數(shù)超過陌生人的付錢總數(shù) Print 富翁付給陌生人錢的總數(shù)為：; Format(b1, 0.00); 元 Print 陌生人付給富翁錢的總數(shù)為：; 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 富翁付給陌生人錢的總數(shù)為：; Format(b2, 0.00); 元 Print 陌生人付給富翁錢的總數(shù)為：; Format(a2, 0.00); 元 Print 富翁將多付出：; Format(b2 - a2, 0.00); 元End Sub實(shí)驗(yàn)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