VB小程序
答案:3 悬赏:70
解决时间 2021-01-17 15:30
- 提问者网友：风月客
- 2021-01-16 17:20
VB小程序
最佳答案
- 二级知识专家网友：毛毛
- 2021-01-16 17:36
首先插入一个Command，之后写入代码：
Private Sub Form_Load()
a = 1
End Sub
Private Sub Command1_Click()
If a=1 Then
Print "欢迎进入"
a=2
Else
print "VB初学者"
End if
End Sub
Private Sub Form_Load()
a = 1
End Sub
Private Sub Command1_Click()
If a=1 Then
Print "欢迎进入"
a=2
Else
print "VB初学者"
End if
End Sub
全部回答
- 1楼网友：爱难随人意
- 2021-01-16 19:55
Private Sub Command1_Click()
Static a As Integer
a = a + 1
If a Mod 2 = 1 Then
Me.Cls
Print "欢迎进入"
Else
Me.Cls
Print "VB初学者"
End If
End Sub
Static a As Integer
a = a + 1
If a Mod 2 = 1 Then
Me.Cls
Print "欢迎进入"
Else
Me.Cls
Print "VB初学者"
End If
End Sub
- 2楼网友：山君与见山
- 2021-01-16 18:38
Private Sub Command1_Click()
Static a As Integer
a = a + 1
If a Mod 2 = 1 Then
Me.Cls
Print "欢迎进入"
Else
Me.Cls
Print "VB初学者"
End If
End Sub
做任务借用下
Static a As Integer
a = a + 1
If a Mod 2 = 1 Then
Me.Cls
Print "欢迎进入"
Else
Me.Cls
Print "VB初学者"
End If
End Sub
做任务借用下
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息！
大家都在看
推荐信息