请用VB的循环语句打印出如下图形:A B C D E F G H I J K L M N O P
来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/07/10 08:51:50
请用VB的循环语句打印出如下图形:A B C D E F G H I J K L M N O P
![](http://img.wesiedu.com/upload/e/99/e99cacce7aaa35ff723e8d3c5cb2381d.jpg)
![](http://img.wesiedu.com/upload/e/99/e99cacce7aaa35ff723e8d3c5cb2381d.jpg)
![请用VB的循环语句打印出如下图形:A B C D E F G H I J K L M N O P](/uploads/image/z/10046-38-6.jpg?t=%E8%AF%B7%E7%94%A8VB%E7%9A%84%E5%BE%AA%E7%8E%AF%E8%AF%AD%E5%8F%A5%E6%89%93%E5%8D%B0%E5%87%BA%E5%A6%82%E4%B8%8B%E5%9B%BE%E5%BD%A2%EF%BC%9AA+B+C+D+E+F+G+H+I+J+K+L+M+N+O+P)
Private Sub Command3_Click()
For i = 1 To 4
For j = 1 To 4 - i
Print " ";
Next
For k = 1 To i * 2 - 1
a = a + 1
Print Chr(64 + a);
Next
Print
Next
End Sub 如果觉得字符太密:Private Sub Command3_Click()
For i = 1 To 4
For j = 1 To 4 - i
Print " ";
Next
For k = 1 To i * 2 - 1
a = a + 1
Print Chr(64 + a) & " ";
Next
Print
Next
End Su
For i = 1 To 4
For j = 1 To 4 - i
Print " ";
Next
For k = 1 To i * 2 - 1
a = a + 1
Print Chr(64 + a);
Next
Next
End Sub 如果觉得字符太密:Private Sub Command3_Click()
For i = 1 To 4
For j = 1 To 4 - i
Print " ";
Next
For k = 1 To i * 2 - 1
a = a + 1
Print Chr(64 + a) & " ";
Next
Next
End Su
请用VB的循环语句打印出如下图形:A B C D E F G H I J K L M N O P
在如下英文字母中,既是轴对称又是中心对称图形的字母是A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,
A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,
很无聊的问题,(A+B+C)(D+E+F)(G+H+I)(J+K+L)(M+N+O)是
A B C D E F G H I J K L M N O P 根据所含的元音音素帮下列字母站好队
外星人的英文字母 I1.A B D E F G H K M N P Q R T X Y 2.C I J L O S U
英语翻译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 The
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
A B C D E F G H I J K L M N O P Q R S T V W X Y Z