B C D E F G H I J K L M N O P Q R S T U V W X Y Z A B
C D E F G H I J K L M N O P Q R S T U V W X Y Z A B C
D E F G H I J K L M N O P Q R S T U V W X Y Z A B C D
E F G H I J K L M N O P Q R S T U V W X Y Z A B C D E
F G H I J K L M N O P Q R S T U V W X Y Z A B C D E F
G H I J K L M N O P Q R S T U V W X Y Z A B C D E F G
H I J K L M N O P Q R S T U V W X Y Z A B C D E F G H
I J K L M N O P Q R S T U V W X Y Z A B C D E F G H I
J K L M N O P Q R S T U V W X Y Z A B C D E F G H I J
K L M N O P Q R S T U V W X Y Z A B C D E F G H I J K
L M N O P Q R S T U V W X Y Z A B C D E F G H I J K L
M N O P Q R S T U V W X Y Z A B C D E F G H I J K L M
N O P Q R S T U V W X Y Z A B C D E F G H I J K L M N
O P Q R S T U V W X Y Z A B C D E F G H I J K L M N O
P Q R S T U V W X Y Z A B C D E F G H I J K L M N O P
Q R S T U V W X Y Z A B C D E F G H I J K L M N O P Q
R S T U V W X Y Z A B C D E F G H I J K L M N O P Q R
S T U V W X Y Z A B C D E F G H I J K L M N O P Q R S
T U V W X Y Z A B C D E F G H I J K L M N O P Q R S T
U V W X Y Z A B C D E F G H I J K L M N O P Q R S T U
V W X Y Z A B C D E F G H I J K L M N O P Q R S T U V
W X Y Z A B C D E F G H I J K L M N O P Q R S T U V W
X Y Z A B C D E F G H I J K L M N O P Q R S T U V W X
Y Z A B C D E F G H I J K L M N O P Q R S T U V W X Y
Z A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
======================================================
分太少，哎！
下面代码：
Private Sub Command1_Click()
Me.Cls
doit "A", "Z"
End Sub
Sub doit(ByVal a As String, ByVal b As String)
Dim i, m As Integer
Dim tmp, tmp2 As String
i = Asc(a)
m = Asc(b)
For j = i To m Step 1
For k = 0 To m - j Step 1
tmp = tmp & Chr(k + j) & " "
Next
For k = 0 To (m - i) - (m - j) Step 1
tmp2 = tmp2 & Chr(k + i) & " "
Next
Me.Print tmp & tmp2
Debug.Print tmp & tmp2
tmp = ""
tmp2 = ""
Next本回答被网友采纳
用VB在窗体上输出如下图形,其中第一行的起始字母和终止字母由用户从键...
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z A B C D E F G H I J K L M N O P Q R S T U V W X Y Z A B C D E F G H I J K L M N O P Q R S T U V W X Y Z A B C D E F G H I J K L M N O P Q ...
怎样用VB二重循环打出下面图形啊?要求键盘输入首尾字字母。
_A B C D 所以每行都可以看成是两部分的结合 如第一行是 A B C D E 和“ ”（空）的组合 第二行是 B C D E 和 A 的组合 第三行是 C D E 和 A B的组合 以此类推 代码如下 Option Explicit Private Sub Command1_Click()Call pailie(Text1.Text, Text2.Text)End Sub Private...
在VB窗体上输出如下图形在窗体上输出如下图形 8 88 888 8888
Private Sub Command1_Click()Dim I As Integer For I = 1 To 4 Me.Print String(I, "8")Next I End Sub
VB在窗体上显示由字母组成的正三角的图形
Private Sub Form_Click()Dim i%, j For i = 1 To 5 For j = i To 4 Print Chr(32);Next j For j = 1 To 2 * i - 1 Print Chr(96 + i);Next j Print Next i End Sub
用VB编写一个无参数Sub过程Triangle,在窗体上输出用“*”组成的如下...
Private Sub Command1_Click()Call Triangle(6)End Sub Private Sub Triangle(N As Integer)Dim i As Integer Me.Cls For i = 1 To N Print Tab(N - i + 1); String(2 * i - 1, "*")Next End Sub
VB问题在窗体上输出一个三角形,代码已经有了 求代码的详细解释 最好是...
For i = 1 To LineNum ‘从1循环到用户输入的行数，如5 str = String(2 * (LineNum - i), " ") ’String函数在这一句的意思是产生多少个空格，此句用来将第一行的空格随着LineNum的变大而减小。金字塔三角型产生于这一句。For k = 1 To 2 * i - 1 ‘以下是主循环 str = ...
...其中m,n由用户输入 输出在窗体上 要求将...
Private Sub Command1_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""End Sub Private Sub Command2_Click()Dim m, n, sum As Integer m = Text1.Text n = Text2.Text sum = m ^ n Text3.Text = sum End Sub Private Sub Command3_Click()Unload Me End Sub ...
...利用inputbox函数输入两个整数,在窗体上输出它们中的最大数和...
Sub Command1_Click()a = InputBox("请输入数字a")b = InputBox("请输入数字b")If a > b Then Print "最大数字为" & a & (Chr(13) & Chr(10)) & "最小数字为" & b Else Print "最大数字为" & b & (Chr(13) & Chr(10)) & "最小数字为" & a End If End Sub ...
...例如在form1中的text1中输入字符,进入form2后使其输出在窗体上...
Form2的代码可以使用：直接输出在窗体上需要一个Label。Private Sub Form_Load()Label1.Caption = Form1.Text1.Text End Sub 这样可以实现打开窗体后立即显示Form1文本框Text1的文本。希望能帮助到楼主。
VB如何在窗体中显示按下键盘按键的字母
VB在窗体中显示按下键盘按键的字母可以通过Form_KeyDown获取按键的KeyCode，然后再把KeyCode转换为相应的键的名字。代码如下：Private Sub Form_Load() Me.KeyPreview = True '使窗体可以获取键盘事件End SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print KeyCodeToStr(Key...
