急！！恳请VB高手进来一下

来源：百度知道编辑：UC知道时间：2024/05/26 11:04:01

Private Sub Command1_Click()
Dim i As Variant
Dim s As Variant
For i = 1 To 4
Randomize
s = s + Chr(Int(Rnd * 26) + Asc("a"))
Next i
Debug.Print s
End Sub

怎样将这个生成的值赋给命令按钮 Command1 的 Caption 属性

Private Sub Command1_Click()
Dim i As Variant
Dim s As Variant
For i = 1 To 4
Randomize
s = s + Chr(Int(Rnd * 26) + Asc("a"))
Next i
Debug.Print s

Command1.Caption = s

End Sub

不知道你是不是这种意思

vb高手进来一下 VB高手进来一下 VB高手进来一下啊 VB高手进来一下啊! 恳请电脑高手进来一下恳请高手帮忙（VB）高手进来一下急`。。 VB数据库高手进来指导一下！急！！！恳请皮肤专家进来急！！！恳请医生专家进来