誰可以幫我解程式碼！！

Question

１、　１英吋＝２.５４公分，寫一個程式讓使用者輸入英吋，換算成公分後輸出
２、　假設Ａ小姐的擇友條件為：
　　　年齡：２５～３２歲
　　　身高：１６０～１７５公分
　　　月薪：３０００元以上
寫一個程式輸入某一男士的年齡、身高和月薪，決定是否合乎條件。（合乎條件則輸出　＂Ｑualified＂，否則輸出＂Ｕnqualified＂）
３、　設計一個程式，讓使用者輸入一個數Ｎ，其值仲於０～１０間（要檢查），印出Ｎ！的結果。例如：輸入６，則輸出６！＝７２０

Answer 1

(1) 一個TEXTBOX 一個Command button
程式碼如下:
Private Sub Command1_Click()
A = Val(Text1.Text) * 2.54
Print A
End Sub

Answer 2

我的紅娘給我建議:多年經驗統計,參加所謂大型聯誼活動,
一般條件(外貌中等ˋ身材一般)男士大約8年才會結婚,
女士大約5年,永遠都是外型優的吃香.試問你的青春就這麼不值錢?
何不集中火力1~2年好好覓得佳偶,過另一段人生.
太晚當爸爸媽媽,除了體力吃緊,也容易會有代溝問題
如果你想知道更多更多搜尋 李姐

Answer 3

１、　１英吋＝２.５４公分，寫一個程式讓使用者輸入英吋，換算成公分後輸出

Private Sub Form_Activate()
n = InputBox("請輸入英吋!!!")
x = n * 2.54
MsgBox (Str(n) & "英吋=" & Str(x) & "公分")
End Sub



２、　假設Ａ小姐的擇友條件為：
　　　年齡：２５～３２歲
　　　身高：１６０～１７５公分
　　　月薪：３０００元以上
寫一個程式輸入某一男士的年齡、身高和月薪，決定是否合乎條件。（合乎條件則輸出　＂Ｑualified＂，否則輸出＂Ｕnqualified＂）

Private Sub Form_Activate()

repeatA: '迴圈標記A
Cls '清除畫面
Dim e As String '宣告e(姓名)為字串
Dim n As Integer '宣告n(年齡)為整數
Dim s As Integer '宣告s(身高)為整數
Dim t As Long '宣告t(月薪)為長整數

e = InputBox("名字")
n = InputBox("年齡")
s = InputBox("身高")
t = InputBox("月薪")

'判斷是否符合條件
If t >= 50000 And s >= 160 And s <= 178 And n >= 25 And n <= 32 Then
Print e & "先生"
Print "年齡：" & Str(n) & "歲"
Print Str(s) & "公分"
Print "月薪"; Str(t) & "元"
Print "恭喜!" & e & "先生，你符合條件。"
Else
Print "真不好意思!" & e & "先生，你不符合條件，請多多加油!!"
End If

'確定視窗，按yes就繼續做下一筆，按no就停在原本畫面
x = MsgBox("繼續做下一筆資料嗎?", vbYesNo, "確定視窗")

If x = vbYes Then
GoTo repeatA '迴圈 A
End If
End If
End Sub



３、　設計一個程式，讓使用者輸入一個數Ｎ，其值仲於０～１０間（要檢查），印出Ｎ！的結果。例如：輸入６，則輸出６！＝７２０


Private Sub Form_Activate()
Dim i, n, sum As Integer
sum = 1
n = InputBox("請輸入n")
For i = 1 To n
sum = sum * i
Next
MsgBox Str(sum)
End Sub

Answer 4

C的回答：
1、
#include
main(void)
{
int inch, cm;
printf("請輸入英吋！\n");
scanf("%d",&inch);
cm=2.54*inch;
printf("%dinch=m",inch, cm);
getchar();
}