怎样用VB程序设计出，单击command出现张三的信息及照片，再单击出现李四

Question

怎样用VB程序设计出，单击command出现张三的信息及照片，再单击出现李四的，然后再单击出现张三的，李四的……一直这样循环的程序

Answer 1

Option Explicit
Dim zsls
Sub 张三()
Text1.Text = "张三的身高"
Text2.Text = "张三的性别"
Text3.Text = "张三的年龄"
Text4.Text = "张三的体重"
'Picture1.Picture = 张三的照片
End Sub
Sub 李四()
Text1.Text = "李四的身高"
Text2.Text = "李四的性别"
Text3.Text = "李四的年龄"
Text4.Text = "李四的体重"
'Picture1.Picture = 李四的照片
End Sub
Private Sub Form_Load()
zsls = 0
End Sub
Private Sub Command1_Click()
zsls = zsls + 1
Select Case zsls
Case 1
Call 张三
Case 2
Call 李四
zsls = 0
End Select
End Sub

Answer 2

可以考虑用全局变量：
在窗体上放一个Label和一个TextBox，然后复制下面的代码可以查看效果。
Dim Flag As Integer
Private Sub CommandButton1_Click()
Flag = Flag + 1
If Flag Mod 2 = 0 Then
Label1.Caption = "张三"
TextBox1.Text = "张是张三的张，三是张三的三"
Else
Label1.Caption = "李四"
TextBox1.Text = "李是大唐皇族之姓"
End If
End Sub本回答被网友采纳