《Visual Basic程序设计基础(申石磊 季超)实验部分答案-》由会员分享，可在线阅读，更多相关《Visual Basic程序设计基础(申石磊 季超)实验部分答案-（13页珍藏版）》请在金锄头文库上搜索。
1、Visual Basic程序设计基础（申石磊 季超）实验部分答案-高等教育出版社2-1Private Sub Form_Click()ClsEnd SubPrivate Sub Form_DblClick()FontSize = 30fontcolor = vbGreenPrint helloFontSize = 90fontcolor = vbRedPrint OKEnd Sub 2-2Private Sub Command1_Click()Label1.Move Width * Rnd, Height * RndEnd Sub 2-3Private Sub Command1_Click()
2、Label1.Caption = End SubPrivate Sub Command2_Click()Label1.Caption = 河南大学End Sub 2-4Private Sub Timer1_Timer()Text1.Text = NowForm1.Caption = NowEnd Sub2-5Private Sub Timer1_Timer()If Form1.BackColor = vbRed Then Form1.BackColor = vbYellow ElseForm1.BackColor = vbRedEnd IfEnd Sub 2-6Private Sub Time
3、r1_Timer()If Label1.Left -Label1.Width ThenLabel1.Left = Label1.Left + 10ElseLabel1.Left = WidthEnd IfEnd Sub 2-7Private Sub Command1_Click()Text1.Text = End SubPrivate Sub Command2_Click()Text1.Text = 河南大学End Sub 2-8Private Sub Text1_Change()Text2 = Text1End Sub 2-9Private Sub Command1_Click()FontS
4、ize = 20Print 河南大学FontSize = 15Print 哲管院End SubPrivate Sub Command2_Click()ClsEnd Sub 2-10Private Sub Command1_Click()r = Text1.TextText2.Text = 6.28 * rEnd SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Text1.SetFocusEnd Sub2-11Private Sub Form_Load()Text1.Text = 河南大学Text1.FontSize = 36Te
5、xt1.FontName = 隶书Text1.BackColor = vbRedText1.ForeColor = vbGreenEnd Sub2-12Dim s As StringPrivate Sub Command1_Click()s = Text1.TextText1.Text = End SubPrivate Sub Command2_Click()Text2.Text = sEnd Sub 3-2Private Sub Form_Click()Dim n As IntegerRandomizen = Int(90 * Rnd + 10)n1 = n 10n2 = n Mod 10P
6、rint n, n1 & n2End Sub 3-3Private Sub Timer1_Timer()ClsPrint heheheheheForm1.FontSize = Int(71 * Rnd + 10)End Sub 3-4Private Sub Command1_Click() n = Asc(Right(Text1, 1) Text2 = Hex(n)End SubPrivate Sub Command2_Click() Text1 = Text2 = Text1.SetFocusEnd Sub 3-5Private Sub Command1_Click()Text2.Text
7、= Date - CDate(Text1)End SubPrivate Sub Command2_Click()Text1.Text = Text2 = End Sub 3-6Private Sub Command1_Click()Text2.Text = Right(Text1, 1) & Mid(Text1, 2, 1) & Left(Text1, 1)End SubPrivate Sub Command2_Click()Text1 = Text2 = End Sub3-7Private Sub Timer1_Timer() Me.Label1.Caption = 程序设计 Me.Labe
8、l1.FontSize = (41 * Rnd + 10) Me.Label1.BackColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256) Me.Label1.ForeColor = QBColor(Int(16 * Rnd)End Sub 3-8Private Sub Timer1_Timer() Me.Label1.Caption = 程序设计 Me.Label1.FontSize = (41 * Rnd + 10) Me.Label1.BackColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256) Me.Label1
9、.ForeColor = QBColor(Int(16 * Rnd)End Sub 3-9Private Sub Command1_Click()x = Shell(notepad.exe, 1)End SubPrivate Sub Command2_Click()Shell mspaint.exe, 1End Sub 3-10Private Sub Form_Click() Dim X As Long Me.FontSize = 15 X = InputBox(输入钱数:) X1 = X 100 X2 = (X - 100 * X1) 50 x3 = (X - 100 * X1 - 50 *
10、 X2) 20 x4 = (X - 100 * X1 - 50 * X2 - 20 * x3) 10 x5 = (X - 100 * X1 - 50 * X2 - 20 * x3 - 10 * x4) 5 x6 = (X - 100 * X1 - 50 * X2 - 20 * x3 - 10 * x4 - 5 * x5) 2 x7 = (X - 100 * X1 - 50 * X2 - 20 * x3 - 10 * x4 - 5 * x5 - 2 * x6) 1 Print X Print X1; 张100元 Print X2; 张50元 Print x3; 张20元 Print x4; 张1
11、0元 Print x5; 张5元 Print x6; 张2元 Print x7; 张1元End Sub4-1Private Sub Form_Click() Dim n As Integer p! = InputBox(存款金额) r! = InputBox(利率) n = InputBox(存款年数) s! = Round(p * (1 + r) n, 2) Print 本金+利息: & sEnd Sub 4-2Private Sub Form_Click() x! = InputBox(输入数据x) y! = InputBox(输入数据y) If x y Then Print x=; x;
12、 y=; y Else Print y=; y; x=; x End IfEnd Sub 4-3Private Sub Form_Click() Dim n As Integer n = InputBox(输入年份) If n Mod 4 = 0 And n Mod 100 0 Then Print 闰年 Else Print 不是闰年 End IfEnd Sub4-4 Dim x As Single, y As StringPrivate Sub Command1_Click() x = Text1.Text Text2.Text = y If 90 = x = 100 Then y = 优秀 ElseIf 80 = x 90 Then y = 良好 ElseIf 70 = x 80 Then y = 中等 ElseIf 60 = x 60 Then y = 及格 ElseIf x = 90 And x = 80 And x = 70 And x = 60 And x = 0 And x 60 Then Text2.Text = 重考! End IfEnd SubPrivate Sub Command2_Click() Text1.Text = Text2.Text = Me.Text1
