编写程序,求和s=3 33 333 3333
答案:1 悬赏:60 手机版
解决时间 2021-03-26 10:47
- 提问者网友：嗝是迷路的屁
- 2021-03-25 22:12
编写程序,求和s=3 33 333 3333
最佳答案
- 五星知识达人网友：有你哪都是故乡
- 2021-03-25 23:00
界面上放两个TextBox和一个Command
Text1用来输入k
Text2用来显示结果
在Text1输入末项3的个数k，点击按钮输出结果。
添加代码：
Private Sub Command1_Click()
Dim k As Integer, t As Integer
Dim sum As String
k = Val(Text1.Text)
t = 0
sum = ""
'按加法法则从右往左做加法
Do While k > 0
'当前列求和（包括后一位的进位）
t = k * 3 + t
'当前列的和的最末位拼入“和”里
sum = Right(Str(t), 1) + sum
'算进位的数
t = Int(t / 10)
k = k - 1
Loop
'算到首位还有进位的话拼入“和”里
If t <> 0 Then sum = Trim(Str(t)) + sum
'显示结果
Text2.Text = sum
End Sub
Text1用来输入k
Text2用来显示结果
在Text1输入末项3的个数k，点击按钮输出结果。
添加代码：
Private Sub Command1_Click()
Dim k As Integer, t As Integer
Dim sum As String
k = Val(Text1.Text)
t = 0
sum = ""
'按加法法则从右往左做加法
Do While k > 0
'当前列求和（包括后一位的进位）
t = k * 3 + t
'当前列的和的最末位拼入“和”里
sum = Right(Str(t), 1) + sum
'算进位的数
t = Int(t / 10)
k = k - 1
Loop
'算到首位还有进位的话拼入“和”里
If t <> 0 Then sum = Trim(Str(t)) + sum
'显示结果
Text2.Text = sum
End Sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯