用VB程序编程
答案:2 悬赏:30 手机版
解决时间 2021-03-06 02:19
- 提问者网友：难遇难求
- 2021-03-05 15:06
用VB程序编程
最佳答案
- 五星知识达人网友：洒脱疯子
- 2021-03-05 15:11
0怎么算?
全部回答
- 1楼网友：思契十里
- 2021-03-05 15:50
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
a = Val(Text1.Text)
b = Len(Text1.Text)
Do
If b / 2 = Fix(b / 2) Then
a = a / 2
Else
a = a * 3 / 2
End If
If a = 1 Then
MsgBox "成立"
Exit Do
End If
Loop While a = 1
End Sub
Dim a As Integer
Dim b As Integer
a = Val(Text1.Text)
b = Len(Text1.Text)
Do
If b / 2 = Fix(b / 2) Then
a = a / 2
Else
a = a * 3 / 2
End If
If a = 1 Then
MsgBox "成立"
Exit Do
End If
Loop While a = 1
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯