作业帮 > 综合 > 作业

上机题 一、从键盘上接收两个数,比较两个数的大小,并输出较大的数.二、编写计算S=1+2+…+10000的程序

来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/07/07 08:13:32
上机题 一、从键盘上接收两个数,比较两个数的大小,并输出较大的数.二、编写计算S=1+2+…+10000的程序
半个小时要 VF6.0完成
上机题 一、从键盘上接收两个数,比较两个数的大小,并输出较大的数.二、编写计算S=1+2+…+10000的程序
不用发邮箱,很简单滴,直接给你粘代码了
Private Sub Command1_Click()
x = InputBox("输入一个数")
y = InputBox("再输入一个数")
If Val(x) > Val(y) Then
Print x
Else
Print y
End If
End Sub
Private Sub Command2_Click()
s = 0
For i = 1 To 10000
s = s + i
Next i
Print s
End Su