求人帮忙编一个VB小程序

答案:3 悬赏:40 手机版

解决时间 2021-04-29 15:35

提问者网友：欲劫无渡
2021-04-28 18:57

要求点击一下command命令按钮，随即在TEXT1.2.3中生成三个随机数范围是0-9。并且在TEXT4中输入一个数值为N，自动触发command N次！

求人编写！

邮箱：894200103@qq.com，请将代码+EXE发到我的邮箱里，小弟感激不尽！

最佳答案

五星知识达人网友：神也偏爱
2021-04-28 20:26

Private Sub Command1_Click()
For i = 1 To Val(Text4)
Randomize:Text1= Int(Rnd * 10)
Randomize:Text2= Int(Rnd * 10)
Randomize:Text3= Int(Rnd * 10)

DoEvnets
Next i
End Sub

全部回答

1楼网友：逃夭
2021-04-28 22:25

Private Sub Command1_Click() Randomize Text1.Text = Int(Rnd() * 10) Text2.Text = Int(Rnd() * 10) Text3.Text = Int(Rnd() * 10) End Sub Private Sub Form_Load() Text1 = "" Text2 = "" Text3 = "" Text4 = "" End Sub Private Sub Text4_Change() If Val(Text4.Text) > 0 Then For i = 1 To Val(Text4.Text) Call Command1_Click Next End If Text4 = "" End Sub

2楼网友：蓝房子
2021-04-28 21:07

窗体中添加 4个text 1个command

Private Sub Command1_Click() Dim i As Integer For i = 1 To Val(Text4.Text) Text1.Text = Int(Rnd * 10) Text2.Text = Int(Rnd * 10) Text3.Text = Int(Rnd * 10) Next i End Sub

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息