UC知道关于vb的 加快啊!!!!!!
来源：百度知道 编辑：UC知道 时间：2024/06/20 00:43:31
1．输入一个三位正整数，将之反向输出。例如，输入123，则输出321。（工程文件和窗体文件分别命名为P1.vbp和F1.frm）（50分）
Option Explicit
Private Sub Command1_click()
Dim a As Integer, b As Integer, c As Integer
_____________________________________(1)
Do
m = InputBox("输入一个三位正整数")
Loop Until ______________________________(2)
a = _________________(3)
b = (m - a * 100) \ 10
c = _________________(4)
______________________(5)
End Sub
Option Explicit
Private Sub Command1_click()
Dim a As Integer, b As Integer, c As Integer
_____________________________________(1)
Do
m = InputBox("输入一个三位正整数")
Loop Until ______________________________(2)
a = _________________(3)
b = (m - a * 100) \ 10
c = _________________(4)
______________________(5)
End Sub
Option Explicit
Private Sub Command1_click()
Dim a As Integer, b As Integer, c As Integer
on error resume next
Do
m = InputBox("输入一个三位正整数")
Loop Until m>99 and m<1000
a=int(m/100)
b = (m - a * 100) \ 10
c = m-a*100-int(b)*10
m=c*100+int(b)*10+a
End Sub
'注意这里用INT而不用CINT是为了取整，而用CINT则会四舍五入
很基础的题
自己学习一下吧
最主要是持之以恒！给你一个学习、下载VB的网站吧！