怎么设计这个vb的程序！急！10分钟内给的加100分！

来源：百度知道 编辑：UC知道 时间：2024/09/25 17:22:08
我们正考试呢！快点！

没办法传图上来

是这样的

两个bottom一个label一个textbook

在 textbook里输入3
得到

form1

a
ab
abc
abcd

输入
13
a
ab
abcd
一直往下到
abcdefghijk

谢谢了！

不是很正确也没关系！时间要经！！！！

Option Explicit
Sub Command1_click()
Dim Asc_start As Integer
Dim Output_Str As String
Dim i As Integer
Dim j As Integer

Output_Str = ""
Asc_start = Asc("a")
j=Cint(textbook.text)

For i = 1 To j
Output_Str = Output_Str & Chr(Asc_start)
Asc_start = Asc_start + 1
Form1.Print Output_Str
Next

End Sub

整数和字符是可以通过ASCII码转换的，这样就行了

你在描述下好吗 不是很明白！

在bottom的单击的事件里写
zf="abcdefghijklmnopqrstuvwxyz"
for a=1 to val(text1.text)
me.print mid(zf,1,a)
next

我在此呼吁各位,不要给考试的回复

Private Sub Command1_Click()
Cls
Dim a As String
a = "abcdefghijklmnopqrstuvwxyz"
For i = 1 To Val(Text1.Text)
Print Left(a, i)
Next
End Sub