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/08/12 05:24:04
![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](/uploads/image/z/1991732-68-2.jpg?t=vb+%E6%98%BE%E7%A4%BA1%2B2%2B3%2B4%2B5%2B6%2B7%2B8%2B9%2B10%3D55VB%E5%81%9A%E4%B8%80%E4%B8%AA%E7%A8%8B%E5%BA%8F%EF%BC%9A%E4%B8%80%E4%B8%AA%E8%BE%93%E5%85%A5%E6%A1%86%2C%E8%BE%93%E5%85%A5%E4%B8%80%E4%B8%AA%E5%A4%A7%E4%BA%8E1%E7%9A%84%E6%95%B4%E6%95%B0%2C%E6%AF%94%E5%A6%8210%2C%E5%88%99%E6%98%BE%E7%A4%BA%EF%BC%9A1%2B2%2B3%2B4%2B5%2B6%2B7%2B8%2B9%2B10%3D55)
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
已经运行过.