vb编程怎么反向输出字

① 求编一个VB程序输入一个三位整数，然后将它反向输出

可以参考下面的代码：

private sub command1_click()

x=inputbox("输首枯入一个三位数")

X1=X100 'x1=三位数 的百位

X2=(X-X1*100)10 '十位

X3=X-X1*100-X2*10 '个位

msgbox X3&X2&X1

end sub

扩衡碰展资料：

VB基本函数

CBool 函数： 返回已被转换为 Boolean 子类型的变体的表达式。

CByte 函数： 返回已被转换为字节子类型的变体的表达式。

CCur 函数 ：返回已被转换为货币子类型的变体的表达式。

CDate 函数： 返回已被转换为日期子类型的咐芹谈变体的表达式。

CDbl 函数： 返回已被转换为双精度子类型的变体的表达式。

② 如何用“vb将自己的名字在窗体上反向输出”

VB可使用StrReverse函数实现字符串的逆序输出。

StrReverse函数，返回一个字符串，其中一个指定子字符串的字符顺序是反向的。

语法：

StrReverse(string1)

参数string1是一个字符串，它的字符顺序要被反向。如果string1是一个长则差度为零的字符串("")，则返回一个长禅尘度为零的字符串。

实现代码例子：

PrivateSubForm_Click()
DimstrSjAsString
strSj="vb将自己的名字孙袭皮在窗体上反向输出"
strSj=StrReverse(strSj)
PrintstrSj
EndSub

③ 输入一组数据，使其反向输出，用VB如何编程，很急

把一组数据空圆慧放在一斗答个数组腔穗里,就可以了
dim a(10) as single
'输入数据
for i=0 to 10
a(i)=val(inputbox("输入数据:"))
next
'输出
for i=10 to 0 step -1
print a(i),
next
print

④ 怎样用VB编写四个数字的反向输出

新建桐闭粗一工程，添加一个按钮与一个标局镇签控件，在代码框时粘上以下代码即可。

Option Explicit

Private Sub Command1_Click()
Dim A1, A2
A1 = 1234
A2 = Mid(A1, 4, 1) * 1000 + Mid(A1, 3, 1) * 100 + Mid(A1, 2, 1) * 10 + Mid(A1, 1, 1)
Label1.Caption = A2
End Sub

运行结果，将1234输出为4321。在label1标态游签里显示。

⑤ 用VB做将输入的字符反向输出

第一题:
Dim s As String
s = InputBox("输入搜雀携一个字符串：", "输入", "abcd")
MsgBox StrReverse(s)

第二题:
Dim n(1 To 20) As Integer, i As Integer
Dim Max As Integer, Min As Integer, s As Long
Randomize: Max = -32767: Min = 32767: s = 0
For i = 1 To 20
n(i) = Int(51 * Rnd + 50)
If n(i) > Max Then Max = n(i)
If n(i) < Min Then Min = n(i)
s = s + n(i)
Print n(i)
Next i
s = s / 20
MsgBox "最世伏大值：" & Max & "，最小值：" & Min & "，平均值：" & s & "。"岁族

⑥ vb反向输出

已经完成的代码如下：
Sub ReverseDigit()
Dim number As Integer, digit As Integer

number = Val(InputBox("请输入一个非负整数"))
If (number < 0) Then
Debug.Print number; "不是非负整早巧芹数，请输入非负整宽手数"
Exit Sub
End If

Debug.Print number; "的逆序数为:";
Do
digit = number Mod 10 '（1）
number = number \ 10 '（2）
Debug.Print Format(digit, "#");
Loop While (number > 0) '（3）陆毕
Debug.Print
End Sub