其它的你可以用
Private Sub Command1_Click()
Static i
i = i + 1
Me.Caption = Chr(Asc("爱") + i) & Chr(Asc("我") + i + 2) & Chr(Asc("中") + i + 2) & Chr(Asc("华") + i + 2)
End Sub追问
粘贴您的代码后运行出现：
是啊，看窗口标题
追问啊，是标题呀，我的意思是在窗体中出现不同的文字！
追答Private Sub Command1_Click()
Static i
i = i + 1
Me.print Chr(Asc("爱") + i) & Chr(Asc("我") + i + 2) & Chr(Asc("中") + i + 2) & Chr(Asc("华") + i + 2)
End Sub
非常希望按本人的意思给个回答。谢谢！
追答你没说清楚
请告诉怎样做成随机获取？谢谢！
Dim a As Integer
Randomize
a = Int(Rnd() * 10)
Select Case a
Case 0: MsgBox "0"
Case 1: MsgBox "1"
Case 2: MsgBox "2"
Case 3: MsgBox "3"
Case 4: MsgBox "4"
Case 5: MsgBox "5"
Case 6: MsgBox "6"
Case 7: MsgBox "7"
Case 8: MsgBox "8"
Case 9: MsgBox "9"
Case 10: MsgBox "10"
End Select
End Sub追问
先谢谢您！我想让在窗体显示不同文字，而您的是：
你的意思是按钮的内容不同。Caption后的内容你自已看着办了
Private Sub Command1_Click()
Dim a As Integer
Randomize
a = Int(Rnd() * 10)
Select Case a
Case 0: Form1.Caption="0"
Case 1: Form1.Caption="1"
Case 2: Form1.Caption="2"
Case 3: Form1.Caption="3"
Case 4: Form1.Caption="4"
Case 5: Form1.Caption="5"
Case 6: Form1.Caption="6"
Case 7: Form1.Caption="7"
Case 8: Form1.Caption="8"
Case 9: Form1.Caption="9"
Case 10: Form1.Caption="10"
End Select
End Sub
非常希望按本人的意思给个回答。谢谢！
vb中如何使用command控件,通过多次点击实现,点击一次就出现不同的一段...
在command的click事件中 加入一个 static 变量，Static num as Integer num=num+1 然后 你通过num值去判断出现的文字。用select语句、数组结合下标都行
VB中多个按钮,点击后然后在窗体固定位置显示不同的内容
用容器控件（PictureBox或Frame控件）可以实现。比如先放一个PictureBox控件，在上面再放上其他控件；然后再在窗体放入一个PictureBox控件，再在上面放上另一批按钮、文本框之类的控件，依此类推。然后点第一个按钮时，把第一个PictureBox的Visible属性设为True，其他PictureBox的Visible属性设为False；同理...
在VB中,如何实现每单击按钮一次,窗体上就出现一段文字 谢谢了!
或在代码中加一行：command1.tooltiptext=" 点击后转到下一题"。鼠标放在按钮上，就显示文本内容。
怎么让一个按钮按多次能每次都能显示不同的文字(vb)
设置循环试试 每点击一下 让变量 i 自增1 想显示几种文本 就让i 加到几 当i 加到最大 在让 i 归0 重加 并在 循环里 加上 if 或 case 语句 让 button的 text 属性 进行 你想得到的变化
在VB6.0中,怎么写一个命令按钮多次单击按钮的不同事件?
使用静态变量或全局变量可达到此种效果，以静态变量为例，参考代码：Option ExplicitPrivate Sub Command1_Click() Static i As Integer i = i + 2 Print String$(i, "V")End SubPrivate Sub Form_Load() AutoRedraw = TrueEnd Sub演示动画：
vb中怎么编写 单击命令按钮,则窗体显示文本框内的内容?
1、首先，双击窗体空白处进入代码窗口。2、然后我们在事件中找到Click事件。3、这个时候开始编写代码测试【Print "我是Click单击属性！"】。4、然我们开始运行测试。5、启动后，我们在窗体空白处单击。6、这个时候我们将可以看到测试的效果。
用VB编写一个程序,要求每单击一次按钮,依次出现 “静夜思”“床前明月...
dim ss=array("静夜思","床前明月光") '后面按需要添加private sub Command1_Click() static i as integer text1.text=s(i) i=i+1 if i>ubound(s) then i=0end sub
如何使VB中点一下按键会弹出汉字,即点击command的按钮可以在text的空...
定义一个变量，如：dim a as ……这样好让你输出到textbox的数据可以从别处获得。如：a = text2.text Private Sub Command1_Click()text1.text = a '如果想用对话框输出的话就用以下：msgbox"a",64,"提示！"end sub
vb程序中单击按钮,字体变大或变小三个单位怎样设置?
VB.NET中某些控件的字体属性是只读的，所以只可以使用NEW方法\\x0d\\x0a（例子： Label1.Font = New Font("宋体", 9)）\\x0d\\x0a如果是VB6.0中可以直接使用Lable1.Font.Size=Lable1.Font.Size + 3\\x0d\\x0a(这里使用的例子是Lable控件，如果你使用的是Command控件直接改一下就好)
VB按钮点击次数不同事件
Option Explicit Dim cmdInt As Integer Private Sub Command1_Click()cmdInt = cmdInt + 1 If cmdInt = 1 Then MsgBox "第一次点击按钮代码"If List1.Visible = True Then List1.Visible = False Else MsgBox "您是第 " & Str(cmdInt) & " 次 点击按钮"If List1.Visible = False ...
