【VB开源代码栏目提醒】:本文主要为网学会员提供4.3.5.frm,希望对需要4.3.5.frm网友有所帮助,学习一下!
VERSION 5.00
Begin VB.Form Form21
Caption = "Form21"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form21"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
End
Attribute VB_Name = "Form21"
Attribute
VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Click()
Dim a(10) As String
'定义含10个元素的数组
Dim i As Integer
Dim j As Integer
i = 1
'数组下标变量初始化
Do
'接收用户输入
a(i) = InputBox("请输入第" & i & "个字符", "输入字符")
If a(i) = "Q" Or a(i) = "q" Then
'判断是否退出
Exit Do
End If
i = i + 1
'步长递加1
Loop
For j = i - 1 To 1 Step -1
'按先进后出顺序输出
Print a(j)
Next
End Sub