利用Inputbox( )函数依次输入三个数分别赋值给X、Y、Z,并按从小到大的次序在图形框中显示排序结果。

请高人指点谢谢程序运行界面如图... 请高人指点 谢谢
程序运行界面如图
展开
 我来答 举报
百度网友113d582
2009-10-18 · TA获得超过351个赞
知道小有建树答主
回答量:354
采纳率:0%
帮助的人:366万
展开全部
直接用
a=inputbox() ’()内是格式,如(”请输入第一个数字”,”输入框”,1)
接下来同样的b,c就行了。
Zaxife
2009-10-18 · TA获得超过1254个赞
知道小有建树答主
回答量:1138
采纳率:0%
帮助的人:426万
展开全部
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
抢首赞 已赞过 已踩过<
你对这个回答的评价是?
评论 举报 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式