Question

vb编程 第一题我会 后面几个怎么写

Answer 1

都非常简单啊。假设数字分别输入到text1-text n里面。
第2题：
Private Sub Command1_Click()
    msgbox "总花费："  & text1.text*text2.text+text3.text*text4.text & "元！"
End Sub
第3题：
    msgbox "平均分为：" & (text1.text+text2.text+text3.text)/3
第4题：
    If Text1.Text Mod 400 = 0 Then
        MsgBox "瑞年"
    ElseIf Text1.Text Mod 4 = 0 And Text1.Text Mod 100 <> 0 Then
        MsgBox "瑞年"
    Else
        MsgBox "不是瑞年"
    End If
第5题：
    If Text1.Text > 1000 Then
        MsgBox "折后价" & Text1.Text * 0.8
    ElseIf Text1.Text > 500 Then
        MsgBox "折后价" & Text1.Text * 0.85
    Else
        MsgBox "折后价" & Text1.Text * 0.9
    End If