Question

vb题目。求解答！！

求Sn=a+aa+aaa+aaaa+…+aaaaa…a（n个a），其中a是一个由随机数产生的0~9（包括0和9）中的一个正整数，n是一个由随机数产生的1~6（包括1和6）中的一个数。
要求：
输出必须把a和n真实反映出来。比如a=2,n=3,应该在最后输出Sn=2+22+222=246，如果a=0,不论n的值，应该输出Sn=0

Answer 1

Dim str As String = ""
Dim a, n, temp, sum As Integer
temp = 0
sum = 0
a = InputBox("请输入n个a,a的值")
n = InputBox("请输入n个a,n的值")
For i = 1 To n
temp = temp + a * 10 ^ (i - 1)
str = str & temp.ToString & " "
sum = sum + temp
Next
TextBox6.Text = str & sum
运行结果：
2 22 222

和 246

追问

运行出错了

Answer 2

您好，
【1】"xyz " & 1234 返回 字符串 "xyz 1234"
【2】"xyz " + 1234 表达式错误
【3】"abcd" > "ABCD" 返回 True
因为字符串比较是依次比较字符的ASCII码
字符 a 的ASCII码0x61 大于 字符 A 的ASCII码0x41
【4】True > False 返回 False
【5】 3+5>4 And “xy”<"z” 返回 True
字符 x 的ASCII码0x78 小于 字符 z 的ASCII码0x7A
【6】 Not 10>15 And 8<5+2 返回 False
因为 < 关系运算符的优先级 比 算数运算符的 优先级低
所以 先算 5+2 = 7 然后 8<7 是错误的
And 表达式中有一个返回 False，所以表达式返回 False

【简答题】
对象：是具体实体，是类的实例化。例：汽球
属性：是实体某一方面属性的描述。例：红色
事件：是被动可以接受的动作。例：针刺
方法：是主动执行的函数和过程。例：爆破。
【编程题】
【1】交换两个数
Rem 交换两个实数
Public Sub swap_real(ByRef r1 As Double, ByRef r2 As Double)
r1 = r1 + r2
r2 = r1 - r2
r1 = r1 - r2
End Sub

Rem 交换两个整数
Public Sub swap_int(ByRef i1 As Integer, ByRef i2 As Integer)
i1 = i1 + i2
i2 = i1 - i2
i1 = i1 - i2
End Sub

Private Sub Form_Click()
Dim i1 As Double
Dim i2 As Double
i1 = InputBox("请输入数字1", , 1990)
i2 = InputBox("请输入数字2", , 214)
Call swap_real(i1, i2)

Print "输出数字1：", i1
Print "输出数字2：", i2

End Sub
【2】简单排序3个数

Rem 交换两个实数
Public Sub swap_real(ByRef r1 As Double, ByRef r2 As Double)
r1 = r1 + r2
r2 = r1 - r2
r1 = r1 - r2
End Sub

Rem 交换两个整数
Public Sub swap_int(ByRef i1 As Integer, ByRef i2 As Integer)
i1 = i1 + i2
i2 = i1 - i2
i1 = i1 - i2
End Sub

Rem 简单排序3个数
Public Sub msg_sort_3num_byasc(ByVal i1 As Double, ByVal i2 As Double, ByVal i3 As Double)
'Call MsgBox("3个数字按从小到大排列：" & Str(i1) & Str(i2) & Str(i3), "输出排序结果")
Print "3个数字按从小到大排列："
If i1 > i2 Then
Call swap_real(i1, i2)
End If
If i2 > i3 Then
Call swap_real(i2, i3)
End If
If i1 > i2 Then
Call swap_real(i1, i2)
End If

Print "按从小到大是顺序输出3个数：" & Str(i1) & "," & Str(i2) & "," & Str(i3)

End Sub

Private Sub Form_Click()
Dim i1 As Double
Dim i2 As Double
Dim i3 As Double

i1 = InputBox("输入数字1", , 1900)
i2 = InputBox("输入数字2", , 2)
i3 = InputBox("输入数字3", , 14)

Call msg_sort_3num_byasc(i1, i2, i3)
End Sub
【注】以上代码均在VB6.0下调试通过。