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