两个VB的小程序 ,帮忙做一下,谢谢哦!

来源：百度知道 编辑：UC知道 时间：2024/05/22 21:33:10
1.编一个程序,用户连续输入N个数,直到输入非数据为止,最后输出其中最大的一个数?
2.求S=a+aa+aaa+……+aaa…a（n个a）的值，其中a和n又用户自己输入。

第一问:

Private Sub Form_Load()
Dim bigist As Integer, a As Variant
Form1.AutoRedraw = True
a = InputBox("Please input a number:")
bigist = 0
While IsNumeric(a)
If a > bigist Then bigist = a
a = InputBox("Please input a number:")
Wend
Print bigist,
End Sub

第二问：

Private Sub Form_Load()
Dim a As Variant, n As Variant, i As Long, result As Long
Form1.AutoRedraw = True
a = InputBox("Please input a base number - a:")
n = InputBox("Please input a base number - n:")
For i = 1 To n
result = result + a * 10 ^ (i - 1) * (n - i + 1)
Next i
Print result,
End Sub

一看一楼就是个高手，他写的很好，只不过，我认为
第二个有些问题，我改一下
Private Sub Form_Load()
Dim a As Variant, n As Variant, i As Long, result As Long
dim sum as long ,j as long
Form1.AutoRedraw = True
a = InputBox("Please input a base number - a:&q