求初级VB程序代码 很简单的题 考试要用了

来源：百度知道 编辑：UC知道 时间：2024/06/07 04:52:33
拜托帮帮忙啦 很简单的题 下礼拜考试了 要用的题~！谢谢谢谢！！
一共有四个：
1.输入一个字符串，如果首字符为a，弹出信息框“不能以a开头”；如果字符串长度大于6，输出“太长”；如果输出小于4，输出“太短”

2.输出100到500之间所有可以被5和7整除余1的数

3.键盘输入十个数（包括正数和负数），输出其中的每个正数之和以及十个数
的总和

4.求自然数N阶乘

Q1----------------------------------
Private Sub Command1_Click()
Dim Str As String

Str = InputBox("请输入字符串")
If Left(Str, 1) = "a" Then
MsgBox "不能以a开头"
Exit Sub
ElseIf Len(Str) > 6 Then
MsgBox "太长"
Exit Sub
ElseIf Len(Str) < 4 Then
MsgBox "太短"
Exit Sub
End If
End Sub

Q2-----------------------------------
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer

For i = 100 To 500
If i Mod 5 = 1 Or i Mod 7 = 1 Then
Print i;
j = j + 1
If j Mod 10 = 0 Then '每10个换一行输出
Print
End If
End If
Next i
End Sub

Q3---------------------------------------
Private Sub Command1_Click()
Dim i As Integer
Dim Num As Single
Dim Sum1 As Single
Dim Sum2 As Single

For i = 0 To 9
Num = InputBox("请输入一个数")
If Nu