phfb.net
当前位置:首页 >> vB每行输出5个数据tAB >>

vB每行输出5个数据tAB

For i = 1 To 5 c(i) = Int(Rnd * 10) Picture1.Print Tab((i - 1) * 5); c(i); '分号是紧接着,不换行,tab(n)是在第几列开始 Next i

它们都是VB6里的函数,但是的作用是不一样的,并不可以互为替代;Space()函数的结果是一个字符串类型的值,可以赋予字符串变量或常量.例1:Dim s1 as string Dim s2 as string Dim s as string s1 = "ABCD" s2 = "1234" s = s1 &

input=5

可以设置一个控制变量,输出一个不同的数字,变量加1,当变量达到5时,输出一个换行符,变量还原就可以了.这只是一个思路,你可以自己实践一下

for i=1 to 35print a(i)if i mod 5=0 thenprintnext itab是输空格的啊

private wub form_click() dim I as integer for i=1 to 100 print i; if i mod 5 =0 then print next end sub 有什么问题请留言.

Tab函数是用来设置 输出位置的,Tab(5) 就是从这行第5个位置.5*(i Mod 6)+1 就是 i除以6的余数,再乘以5,然后加上1 所以 第1-6个要输出的东西,分别会从这行的 1,6,11,,26 开始输出

Private Sub Form_Click() Dim A As Integer Dim B As Integer For A = 1 To 100 Step 5 Print A, A + 1, A + 2, A + 3, A + 4 Next A End Sub 像这样?

Private Sub Command1_Click() Dim x%, z% For z = 1 To 1000 If Right(Str(z), 1) = 5 And z Mod 3 = 0 Then If x Mod 5 = 0 Then Print Print z; Else Print z; End If x = x + 1 End If Next z End Sub

你好!多了个逗号if (i+1) MOd 5=0 then Print我的回答你还满意吗~~

网站首页 | 网站地图
All rights reserved Powered by www.phfb.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com