正在加载图片...
29.(7分) A1=20 B1=40 A2=40 B2=20 四、完善程序题(共10分) 30.[1]strADOcn [2]New ADODB.Recordset [3JADOrs.ActiveConnection [4]Not [5]Myrefresh 五、编写程序题(共15分) 31.参考答案: Private Sub Command1_Click() Dim x As Single,y As Single x Val(Text1.Text) If x<500 Then y-x Else If x 700 Then y=0.95¥x Else If x<900 Then y=0.9x Else If x 1500 Then y=0.8*x Else y=0.7¥x End If End If End If End If Text2.Text y End Sub 142629. (7 Al=20 B1= 40 A2=40 B2=20 四、完善程序题{共 30. [IJ strADOcn [2J New ADODB. Recordset [3JADOrs. ActiveConnection [4J Not [5J Myrefresh 五、编写程序题{共 1. Private Sub Commandl_ClickO Dim x As Single , y As Single x = Val(Textl. Text) If x < 500 Then y=x Else If x < 700 Then y = 0.95 Else If x < 900 Then y = 0.9 Else If x < 1500 Then y = 0.8 Else y = 0.7 End If End If End If End If Text2. Text = y End Sub 1426
<<向上翻页
©2008-现在 cucdc.com 高等教育资讯网 版权所有