ok_linda
幼苗
共回答了16个问题采纳率:100% 举报
第二题
Private Sub Command1_Click()
Dim a As Long
Dim s As Long
Dim i As Long
If Trim(Text1.Text) = "" Then
MsgBox "请填写N的值!", vbInformation, "-提 示-"
Exit Sub
ElseIf Trim(Text1.Text) = "0" Then
MsgBox "0不参于计算!", vbInformation, "-提 示-"
Exit Sub
Else
a = CLng(Trim(Text1.Text))
s = 1
For i = 1 To a
s = s * i
Next i
Text2.Text = Str(s)
End If
End Sub
第三题:
Private Sub Command1_Click()
If Trim(Text1.Text) = "" Then
MsgBox "请输入年龄", vbInformation, "-提 示-"
Text1.SetFocus
Exit Sub
Else
Dim a As Integer
a = CInt(Text1.Text)
Select Case a
Case Is < 18
Text2.Text = "青年"
Case Is < 60
Text2.Text = "中青年"
Case Is >= 60
Text2.Text = "老年"
End Select
End If
End Sub
第四题:
第四题:
Private Sub Command1_Click()
If Trim(Text1.Text) = "" Or Trim(Text2.Text) = "" Then
MsgBox "请填完整"
ElseIf CLng(Text1.Text) = CLng(Text2.Text) Then
Label1.Caption = "两数相等!"
ElseIf CLng(Text1.Text) > CLng(Text2.Text) Then
Label1.Caption = Text1.Text
Else
Label1.Caption = Text2.Text
End If
End Sub
Private Sub Command2_Click()
Text1.Text = "" And Text2.Text = ""
End Sub
第一题:见图/
1年前
9