VB程序设计基础 申石磊 答案(2)

Randomize

n = Int((90 * Rnd) + 10)

Print n End Sub

3-3

Private Sub Timer1_Timer()

Cls

Print \河南大学环境与规划学院\ FontSize = Int(71 * Rnd + 10)

End Sub

3-4

Private Sub Command1_Click()

n = Text1.Text

Text2.Text = Hex(Asc(Right(Text1.Text, 1)))

End Sub

Private Sub Command2_Click()

Text1.Text = \ Text2.Text = \ Text1.SetFocus

End Sub

3-5

Private Sub Command1_Click()

Dim m As Date m = Text1.Text

n = Date

Text2.Text = n - m

End Sub

Private Sub Command2_Click()

Text1.Text = \ Text2.Text = \ Text1.SetFocus

End Sub

3-6

Dim b As String Dim n As String Dim m As String

Private Sub Command1_Click()

m = Left(Text1, 1) n = Right(Text1, 1) b = Mid(Text1, 2, 1) Text2.Text = n & b & m

End Sub

Private Sub Command2_Click()

Text1.Text = \

Text2.Text = \ Text1.SetFocus

End Sub

3-7

Private Sub Form_click() r = InputBox(\请输入字符\

Print Left(r, 1) & Mid(r, 3, 1) & Right(r, 1)

End Sub

3-8

Private Sub Timer1_Timer() Label1.FontSize = Rnd * 40 + 10

Label1.BackColor = RGB(Rnd * 256, Rnd * 256,

Rnd * 256)

Label1.ForeColor = QBColor(Int(16 * Rnd))

End Sub

3-10

Private Sub Form_Click()

r! = InputBox(\请输入您的工资:\

a = r \\ 100

b = (r - 100 * a) \\ 50 c = (r - 100 * a - b * 50) \\ 10 d = (r - 100 * a - b * 50 - c * 10) \\ 5

e = (r - 100 * a - b * 50 - c * 10 - d * 5) \\ 2 f = r - 100 * a - b * 50 - c * 10 - d * 5 - e * 2

Print \您的工资是:\ Print \元张数：\ Print \元张数：\ Print \元张数：\ Print \元张数：\ Print \元张数：\ Print \元张数：\

End Sub

4-1

Private Sub Command1_Click()

Dim p As Single, r As Single, n As Single

p = Text1 r = Text2 n = Text3 s = p * (1 + r) ^ n

MsgBox \您的本息是：\

End Sub

4-2

Private Sub Form_click()

Dim max As Single, min As Single

a! = InputBox(\请输入第一个实数\ b! = InputBox(\请输入第二个实数\

If a > b Then Print a, b

Else Print b, a End If End Sub

4-3

Private Sub Form_click()

Cls

a! = InputBox(\请输入年份\

If a Mod 4 = 0 And a Mod 100 <> 0 & a Mod 400 =

0 Then

Print \您刚刚输入的年份为闰年!\

Else

Print \您刚刚输入的年份不是闰年!\

End If End Sub

4-4

Private Sub Form_click()

a! = InputBox(\