作业帮vb 显示1+2+3+4+5+6+7+8+9+10=55VB做一个程序：一个输入框,输入一个大于1的整数,比如10,则显示：1+2+3+4+5+6+7+8+9+10=55
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/05 23:25:44
vb 显示1+2+3+4+5+6+7+8+9+10=55VB做一个程序：一个输入框,输入一个大于1的整数,比如10,则显示：1+2+3+4+5+6+7+8+9+10=55
vb 显示1+2+3+4+5+6+7+8+9+10=55
VB做一个程序：一个输入框,输入一个大于1的整数,比如10,则显示：1+2+3+4+5+6+7+8+9+10=55
vb 显示1+2+3+4+5+6+7+8+9+10=55VB做一个程序：一个输入框,输入一个大于1的整数,比如10,则显示：1+2+3+4+5+6+7+8+9+10=55
放置三个控件：text1,command1,其它就靠程序自己运行啦!注意窗口要足够宽哟,否则可能会造成运行时显示不完整昂.代码如下：
Private Sub Command1_Click()
Cls
Dim a As Single, b As Integer, i As Integer
If Not IsNumeric(Text1.Text) Then
Print "请输入数字"
Else
a = Val(Text1.Text)
If Int(a) a Then
Print "请输入整数"
Else
If a < 1 Then
Print "请输入大于1的整数"
Else
For i = 1 To Val(Text1.Text)
b = b + i
Print i;
If i a Then Print "+";
Next
Print "="; b
End If
End If
End If
End Sub
Private Sub Form_Load()
Text1.Text = ""
Command1.Caption = "确定"
Print "请输入数字"
End Sub
已经运行过.