求VB编程题答案.马上就要高一信息技术会考了~1、随机产生10个两位整数,按由小到大顺序输出.2、求N!=1*2*3…*N,N值由键盘输入.3、输入某人年龄,输出其所属年龄段;18岁以下(不含18)为青少
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/01 23:05:15
![求VB编程题答案.马上就要高一信息技术会考了~1、随机产生10个两位整数,按由小到大顺序输出.2、求N!=1*2*3…*N,N值由键盘输入.3、输入某人年龄,输出其所属年龄段;18岁以下(不含18)为青少](/uploads/image/z/10211936-32-6.jpg?t=%E6%B1%82VB%E7%BC%96%E7%A8%8B%E9%A2%98%E7%AD%94%E6%A1%88.%E9%A9%AC%E4%B8%8A%E5%B0%B1%E8%A6%81%E9%AB%98%E4%B8%80%E4%BF%A1%E6%81%AF%E6%8A%80%E6%9C%AF%E4%BC%9A%E8%80%83%E4%BA%86%7E1%E3%80%81%E9%9A%8F%E6%9C%BA%E4%BA%A7%E7%94%9F10%E4%B8%AA%E4%B8%A4%E4%BD%8D%E6%95%B4%E6%95%B0%2C%E6%8C%89%E7%94%B1%E5%B0%8F%E5%88%B0%E5%A4%A7%E9%A1%BA%E5%BA%8F%E8%BE%93%E5%87%BA.2%E3%80%81%E6%B1%82N%21%3D1%2A2%2A3%E2%80%A6%2AN%2CN%E5%80%BC%E7%94%B1%E9%94%AE%E7%9B%98%E8%BE%93%E5%85%A5.3%E3%80%81%E8%BE%93%E5%85%A5%E6%9F%90%E4%BA%BA%E5%B9%B4%E9%BE%84%2C%E8%BE%93%E5%87%BA%E5%85%B6%E6%89%80%E5%B1%9E%E5%B9%B4%E9%BE%84%E6%AE%B5%EF%BC%9B18%E5%B2%81%E4%BB%A5%E4%B8%8B%EF%BC%88%E4%B8%8D%E5%90%AB18%EF%BC%89%E4%B8%BA%E9%9D%92%E5%B0%91)
求VB编程题答案.马上就要高一信息技术会考了~1、随机产生10个两位整数,按由小到大顺序输出.2、求N!=1*2*3…*N,N值由键盘输入.3、输入某人年龄,输出其所属年龄段;18岁以下(不含18)为青少
求VB编程题答案.马上就要高一信息技术会考了~
1、随机产生10个两位整数,按由小到大顺序输出.
2、求N!=1*2*3…*N,N值由键盘输入.
3、输入某人年龄,输出其所属年龄段;18岁以下(不含18)为青少年;18---60为中青年;60岁以上(含60)为老年.
4、在文本框中任意输入两个数,单击“比较”按钮后,将其中的
最大值显示在下方标签中;单击“清除”按钮清除各项数值.
求VB编程题答案.马上就要高一信息技术会考了~1、随机产生10个两位整数,按由小到大顺序输出.2、求N!=1*2*3…*N,N值由键盘输入.3、输入某人年龄,输出其所属年龄段;18岁以下(不含18)为青少
第二题
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
第一题:见图/
平时不好好学习,连会考都要求助。鄙视你!