请人用VB语言帮我实现个循环

crystal408 2005-09-25 09:13:19

i = A (A是一个小于等于5的数)
n = 5 - i
现在想实现:i不等于5的时候在i后面补0,

...全文

228 21 打赏收藏转发到动态举报

写回复

21 条回复

切换为时间正序

请发表友善的回复…

发表回复

winehero 2005-09-26

打赏
举报

回复

呵呵，楼上可以。或者是：
if len(i)<5 then i= i & String((5 - Len(i)), "0")

kmzs 2005-09-26

打赏
举报

回复

还可以这样，您不是想写个循环吗？

while i<=9999
i=i*10
wend

kmzs 2005-09-26

打赏
举报

回复

楼主锻炼一下语言表达能力也不错
不过楼上的方法可行呀

jxgzay 2005-09-26

打赏
举报

回复

i = A (A是一个小于等于5的数,是已经知道的)
n = 5 - i
现在想实现:i不足5位的时候在i后面补0,0的位数是N,然后循环!

//
i = A
n = 5 - i
s=string(n,"0")
i=val(str(i) & s)

understand999 2005-09-26

打赏
举报

回复

eprint自定义打印是一个页面套打工具.它直接在IE浏览器中可视化的设计各种复杂的打印模版，
能够解决在IE浏览器中打印各种复杂的中国式报表及票据。详见: http://218.30.103.110:8080/eprint/index.htm

方成eform是web表单,纯BS结构.100%开放源码.可以在 http://218.30.103.110:8080/eform/index.html 在线试用.

联系电话：010-82645151
详情参见：http://www.fcsoft.com.cn

webprint是一个基于表格的页面打印解决方案.先将要打印的数据及样式组织到一个HTML的TABLE元素中, 然后将这个TABLE元素传给webprint,实现分页打印预览,出打印对话框打印和直接打印。

myhgyp 2005-09-26

打赏
举报

回复

i = A
If i <> 5 Then
N=5-i
i = Int(Str(i) + String(N, "0"))
End If

51365133 2005-09-26

打赏
举报

回复

Private Sub Command1_Click()
Dim a As Integer
a = 1
MsgBox Left(Str(a) & "00000", 6)//因为数子前有个前导空格所以要截取6个
End Sub

51365133 2005-09-26

打赏
举报

回复

Private Sub Command1_Click()
Dim a As Integer
Dim base As String
a = 12
base = Str(a)
For i = 0 To 5 - Len(Str(a))
base = base & "0"
Next i
MsgBox base
End Sub

51365133 2005-09-26

打赏
举报

回复

Private Sub Command1_Click()
Dim a As Integer
a = 1
MsgBox Left(Str(a) & "00000", 6)
End Sub

crystal408 2005-09-26

打赏
举报

回复

写N=5-I，其实想得到需要补0的数目

fanzai 2005-09-26

打赏
举报

回复

照楼主说的我觉得这样就可以了啊。
i=i & "0000"

楼主的说法：
i = A (A是一个小于等于5的数，小于5的数，如果不是负数一定就是0~5之间。这样就只有1位数，补四位就可以了啊。)
n = 5 - i（这句话和i补零有什么关系呢？）

myhgyp 2005-09-26

打赏
举报

回复

i = A
If i <> 5 Then
i = Int(Str(i) + String(5 - i, "0"))
End If

northwolves 2005-09-25

打赏
举报

回复

left(i & "00000",5)

crystal408 2005-09-25

打赏
举报

回复

给I补0,I占5位,但是得到的I不一定是5位,所以要用0补在后面,补足5位

西雀 2005-09-25

打赏
举报

回复

问问题的人比较迷糊，你要给谁补0呢？
i=A
n=5-i
'假设给tmdNum补0,tmdNum是一个数字字符串
for i=1 to n
tmdNum=tmdNum & "0"
next

crystal408 2005-09-25

打赏
举报

回复

i = A (A是一个小于等于5的数,是已经知道的)
n = 5 - i
现在想实现:i不足5位的时候在i后面补0,0的位数是N,然后循环!

rudycgyc 2005-09-25

打赏
举报

回复

i = A (A是一个小于等于5的数)
n = 5 - i
现在想实现:i不等于5的时候在i后面补0

i=A
if i<>5 then
a=int(str(i)+0)
end if
应该没有问题吧

crystal408 2005-09-25

打赏
举报

回复

一共5位，要在I后补的0的个数是n，然后循环

myhgyp 2005-09-25

打赏
举报

回复

i = A
If i <> 5 Then
A = Int(Str(i) + "0")
End If
不就是这样吗？

crystal408 2005-09-25

打赏
举报

回复

A是一个已知的数据，我想知道是怎么在它后面补零

加载更多回复（1）

本课程用VB6(Visual Basic)结合GDI+，从无到有开发一个功能较完整的小型交互式CAD系统。作者有交互式CAD系统、动态几何系统开发经验。出版过交互式CAD系统开发方面的图书。课程先讲准备知识，然后讲整个系统的开发思路和主要技术，最后将整个系统分成8个版本，从最简单的绘图开始，逐步添加功能，循序渐进地进行讲解。知识点讲解细致，系统。课程的核心在于源代码，学习每章内容之前，请先下载本章源码。建议先自行对源码进行阅读分析，然后带着问题去听课，这样学习效率比较高，效果比较好一些。课程最终提供的内容和服务：PPT+源码+视频讲解+持续升级/****课程第一节课为免费课，演示了系统的主要功能。可以用手机或电脑观看。如果无法观看，请私信我。谢谢！*****/友情提醒：凭订单信息可找平台客服开具发票。购买系列课程提供打包价，购买讲师卡更划算。

在日常代码编制时，许多人会忽略一些最基本的算法，导致代码冗余，思路不清楚。我曾经至少两次在CSDN里遇到这类问题：我想在页面的右边显示一个列表，列表长度为20，新加入一个用户后，显示在列表开头，再加入的用户，显示在这个用户的下边，当用户数量超过20后，挤掉最前面的那一位，第二位加入的用户成了第一位，依次循环，保证列表最多显示20位用户。当然，实际问题可能与此有些出入，比如Coder是想显示网友们最

本文旨在帮助女友顺利度过VB语言考试，主要内容为基础的、重点的VB语言知识点。本文包括前言、Visual Basic 6.0基础、程序控制结构、数组、函数。 0 前言常言道，VB语言是最最简单的语言，因此很多高校的编程语言教学选择使用VB语言。然而我认为在程序语言语法这一方面它和其它语言大同小异，在学习过程中并没有简单的感觉，反而觉得很多大小写和一些语句使用起来并没有想象中方便。 Visual basic6.0作为 Visual Studio6.0中重...

首先我们来讨论一个争议性问题，用Python做窗口（GUI）编程到底有没有意义？总体来说，意义不大。为什么呢？很明显，Python的强项在于代码优美、简洁，把更多的工作留给计算机去运行，从而解放程序猿们。所以用Python的大牛，更多的是用Python做商业爬虫、大数据分析、Web后端、网络运维、以及与各种开源硬件结合开发各种智能应用。知乎上有位大神给出了非常好的回答：“如果你有时间花半个小时去开...

今天小编来带大家用VB做一个简易计算器废话不多说，下面就是具体步骤了 1、创建控件组的方法首先创建一个命令按钮，调整其大小（觉得合适就行），名称为Command1，Caption 属性为数字 0 ；然后进行“复制”和“粘贴”，当选择“粘贴”时，出现对话框提示已有一个同名控件，询问是否创建控件组，选择“是”后，即创建了一个名为“Command”的控件组。这时，第一个按钮的Index属性值默认为“...

7,763

社区成员

197,609

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章