VB程序设计教程第三版泷沛曾等著实验c答案.pdfVIP

VB程序设计教程 第三版 泷沛曾等著 实验 C 答案 第一题 Private Sub Form_click() Dim x!, y! x = Val(InputBox( 输入价钱 )) If x 1000 Then y = x ElseIf x = 1000 And x 2000 Then y = 0.9 * x ElseIf x = 2000 And x 3000 Then y = 0.8 * x ElseIf x = 3000 Then y = 0.7 * x End If Print 对应折扣 ; y End Sub 第二题 Private Sub Command1_Click() Dim t%, y% t = Val(InputBox( 输入上网时间 )) If t 10 Then y = 30 ElseIf t = 10 And t 50 Then y = 2.5 * t ElseIf t = 50 Then y = 2 * t End If If y = 150 Then y = 150 End If Print 上网总费用 ; y End Sub 第五题 Private Sub Command1_Click() Dim x%, y%, m%, n% m = Val(Text1.Text) n = Val(Text2.Text) If (n Mod 2) 0 Then MsgBox ( 脚数必须为 =2 倍的头数，请重新输入 ) text2.text= text2.setfocus esle y = 1 / 2 * n - m x = 2 * m - 1 /