vb题目。求解答!!

求Sn=a+aa+aaa+aaaa+…+aaaaa…a(n个a),其中a是一个由随机数产生的0~9(包括0和9)中的一个正整数,n是一个由随机数产生的1~6(包括1和6)... 求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
展开
 我来答
sbj518
2015-05-06 · TA获得超过4.4万个赞
知道大有可为答主
回答量:1.1万
采纳率:81%
帮助的人:5301万
展开全部
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
追问
运行出错了
山水阿锐
2015-05-06 · TA获得超过34.3万个赞
知道顶级答主
回答量:23.7万
采纳率:91%
帮助的人:3.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下调试通过。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式