VB实验2-4答案.doc

VB实验二实验2-1Private Sub Command1_Click() Dim r As Single, v As Single r = Val(Text1.Text) v = (4 / 3) * 3.14159 * r 3 Label2 = Format(v, 0.000)End Sub实验2-2Private Sub Command1_Click() a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) p = (1 / 3) * (a + b + c) Text4.Text = Format(p, 0.00)End Sub实验2-3Dim s As Integers = Val(Text1) Text2.Text = Mid(s, 1, 1) Text3.Text = Mid(s, 2, 1) Text4.Text = Mid(s, 3)实验2-4Dim a As Integer, b As Single, c As Integer, d As Integer, e As Singlea = Val(Text1) b = Val(Text2) c = Val(Text3) d = Val(Text4) e = (63360 * a + 36 * b + 12 * c + d) / 39.37Text5.Text = Format(e, 0.000)实验2-5Text1.Enabled = TrueText1.Enabled = False实验2-6Private Sub Form_Load() Command1.Caption = 编辑（&E） Command2.Caption = 保存（&S）End SubPrivate Sub Command1_Click() Text1.Locked = FalseEnd SubPrivate Sub Text1_Change() Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click() Text1.Locked = True Command2.Enabled = FalseEnd Sub实验2-7（居中在杂项）Private Sub Command1_Click() Text1.Text = 欢迎光临End SubPrivate Sub Command2_Click() Text1.Text = 谢谢再见End SubPrivate Sub Form_Load() Text1.TabIndex = 0 Command1.Default = True Command2.Cancel = TrueEnd Sub实验2-8Private Sub Command1_Click() Text1.SelStart = 8 Text1.SelLength = 9 Text1.SetFocusEnd SubPrivate Sub Command2_Click() Label1.Caption = Text1.SelTextEnd SubPrivate Sub Text1_Change() If Len(Text1.text) 100 Then p = (n - 100) * 0.03 + 5 ElseIf 0 n 0) And (y 0) Then Text3.Text = 第一象限 ElseIf (x 0) Then Text3.Text = 第二象限 ElseIf (x 0) And (y 0) And (y 0) Then Text3.Text = 第四象限 End IfEnd Sub实验4Option ExplicitPrivate Sub Command1_Click() Dim a As Single, b As Single, c As Single, d As Single, r As String a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If 240 = a + b + c And a + b + c = 269 Then r = Bronze Medal ElseIf 270 = a + b + c And a + b + c = 284 Then r = Silver Medal ElseIf 285 = a + b + c And a + b + c = 300 Then r = Gold Medal ElseIf (a + b + c = 95) Or (b = 95) Or (c = 95) Then r = Honor Medal Else r = No Medal End If Text4.Text = rEnd Sub实验5Private Sub Option1_Click() Text1.Text = 我是博士生End SubPrivate Sub Option2_Click() Text1.Text = 我是硕士生End SubPrivate Sub Option3_Click() Text1.Text = 我是本科生End Sub实验6Private Sub Command1_Click() If Option1.Value Then Text1.Text = 支持湖人队 ElseIf Option2.Value Then Text1.Text = 支持公牛队 End IfEnd SubPrivate Sub Command2_Click() Option1.Value = False Option2.Value = False Text1.Text = 没有选择任何团队End Sub实验7Private Sub Check1_Click() If Check1.Value Then Label1.FontUnderline = True ElseIf Check2.Value Then Label1.FontStrikethru = True End IfEnd Sub实验8Dim a As IntegerPrivate Sub Command1_Click() If Check1.Value = False And Check2.Value = False And Check3.Value = False And Check4.Value = False Then Text1.Text = 4500 Else If Check1.Value = 1 Then a = 4500 + 1000 Else a = 4500 End If If Check2.Value = 1 Then a = a + 800 Else a = a End If If Check3.Value = 1 Then a = a + 600 Else a = a End If If Check4.Value = 1 Then a = a + 500 Else a = a End If Text1.Text = Str(a) End IfEnd SubVB实验四实验1Private Sub Command1_Click() Dim sum As Double, n As Integer, i As Integer n = Val(Text1.Text) sum = 0 For i = 1 To n If (i Mod 3 = 0) And (i Mod 7 0) Then sum = sum + i Else sum = sum End If Next i Label2.Caption = Str(sum)End Sub实验2Private Sub Command1_Click() Dim m, n, p, i As Integer m = Val(Text1.Text) n = Val(Text2.Text) i = m Mod n Do While i 0 m = n n = i i = m Mod n Loop Text3.Text = Str(n)End Sub实验3Private Sub Command1_Click() Dim i, j, m, n, sum As Integer, flag As Boolean m = Val(Text1.Text) n = Val(Text2.Text) sum = 0 For i = m To n flag = True For j = 2 To i - 1 If i Mod j = 0 Then flag = False Exit For End If Next j If flag = True Then sum = sum + i End If Next i Text3.Text = Str(sum)End Sub实验4Private Sub Command1_Click() Dim i, sum As Integer, n As String n = Len(Text1.Text) sum = 0 For i = 1 To n If Mid(Text1.Text, i, 1) = 1 Then sum = sum + 2 (n - i) End If Next i Label1.Caption = Str(sum)End SubPrivate Sub Command2_Click() Dim n, i As Integer n = Val(Text1.Text) Label1.Caption = Do While n 0 Label1.Caption = n Mod 2 & Label1.Caption n = n 2 LoopEnd Sub实验5Private Sub Command1_Click() Timer1.Enabled = True Label1.Caption = 正在倒计时 Text1.Text = 10End SubPrivate Sub Timer1_Timer() Text1.Text = Text1.Text - 1 If Text1.Text = 0 Then Timer1.Enabled = False Label1.Caption = 停止倒计时 End IfEnd Sub实验6Private Sub Command1_Click() Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click() Timer1.Enabled = False Label1.Left = 100End SubPrivate Sub Timer1_Timer() Label1.Move (Label1.Left + 100) End Sub实验7Private Sub HScroll1_Change() Label1.Width = HScroll1.ValueEnd SubPrivate Sub VScroll1_Change() Label1.Height = VScroll1.ValueEnd Sub实验8Private Sub Command1_Click() Dim n, i, j, sum, m As Integer n = Val(HScroll1.Value) sum = 0 For i = 1 To n m = 0 j = 1 For j = 1 To i m = m + j Next j sum = sum + m Next i Text1.Text = Str(sum)End SubPrivate Sub HScroll1_Change() Label1.Caption = HScroll1.ValueEnd SubVB实验五实验1Dim i As Integer, a(1 To 10) As StringPrivate Sub Command1_Click() Text1.Text = For i = 1 To 10 a(i) = Int(Rnd * 70) + 30 Text1.Text = Text1.Text & a(i) & Space(1) Next iEnd SubPrivate Sub Command2_Click() Text2.Text = For i = 1 To 10 If a(i) Mod 3 = 0 Then Text2.Text = Text2.Text & a(i) & Space(1) End If Next iEnd Sub实验2Dim i As Integer, a(1 To 10) As String, max As IntegerPrivate Sub Command1_Click() Text1.Text = For i = 1 To 10 a(i) = Int(Rnd * 26) + 65 Text1.Tex