利用Inputbox( )函数依次输入三个数分别赋值给X、Y、Z，并按从小到大的次序在图形框中显示排序结果。
答案:2 悬赏:0 手机版
解决时间 2021-04-05 15:41
- 提问者网友：缘字诀
- 2021-04-05 10:57
利用Inputbox( )函数依次输入三个数分别赋值给X、Y、Z，并按从小到大的次序在图形框中显示排序结果。
最佳答案
- 五星知识达人网友：西岸风
- 2021-04-05 12:31
直接用
a=inputbox(） ’()内是格式，如（”请输入第一个数字”，”输入框”，1）
接下来同样的b，c就行了。
a=inputbox(） ’()内是格式，如（”请输入第一个数字”，”输入框”，1）
接下来同样的b，c就行了。
全部回答
- 1楼网友：归鹤鸣
- 2021-04-05 12:56
Private Sub Text1_Click()
Dim i As Integer
Dim t1 As String
Dim t2 As String
Text1.Text = ""
t1 = "一二三"
For i = 1 To 3
Text1.Text = Text1.Text & "," & InputBox("请输入第" & Mid(t1, i, 1) & "个数:", "输入框:")
Next
End Sub
Dim i As Integer
Dim t1 As String
Dim t2 As String
Text1.Text = ""
t1 = "一二三"
For i = 1 To 3
Text1.Text = Text1.Text & "," & InputBox("请输入第" & Mid(t1, i, 1) & "个数:", "输入框:")
Next
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯