搜索
首页 电脑/网络 程序设计 VB

VB小代码

编写程序:计算s=3+33+333+...+33...333(末项k个3)

全部回答

2018-02-13

0 0
    界面上放两个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。

类似问题换一批

热点推荐

热度TOP

相关推荐
加载中...

热点搜索 换一换

电脑/网络
VB
硬件
电脑装机
程序设计
互联网
操作系统/系统故障
笔记本电脑
反病毒
百度
软件
程序设计
VB
数据库
C/C++
汇编语言
JAVA相关
VC++
C#/.NET
其他编程语言
VB
VB
举报
举报原因(必选):
取消确定举报