vb程序买物付费杨辉三角上网计费数字排序求最值大小写转换.docxVIP

Yi在购买某物品时，若所花的的钱x在下 述范围内，所付钱Y按对应折扣支付： 提示：此例可以多分支结构或者选择结构实现，注意计算公式和条件表达式 的正确书写。 jt x1000 y- O^ji 1000x2000 OtJ! 2000Cx?3000 O.n *3000 Dim x As Single Dim y As Single x = Val(Textl) Ifx=OTheny = 0 If x 0 And x = 1000 Then y = x If x = 1000 And x 2000 Then y = 0.9 * x If x = 2000 And x 3000 Then y = 0.8 * x If x = 3000 Then y = 0.7 * x Print ”消费金额”;x;元”；”折丿匸金额”;y;元” 编一程序根据上网时间计算上网费用，同时 为了鼓励多上网，每月收费最多不超过150 fw UK 2训 计算的方法如下: Private Sub Commandl_Click() Dim x As Single Dim y As Single x = Val(TextLText) If x = 10 Then y = 30 Text2.Text = y Elselfx 10 And x = 50 Then y = 3 * x Text2.Text = y Elself x 50 Then y = x * 2.5 Text2.Text = y If x = 60 Then Text2.Text = 150 End If End If End Sub Private Sub Command2_Click() Text 1.Text 二”” Text2.Text 二”” End Sub 输入一个数字(1-7),用英文显示对应的 星期一到星期日。 提示: 提示: 用Select Case语句来实现。 Dim d As Integer Dim x As String Dim y As String d = InputBox(H输入1一7中的一个数字”) Select Case d Case 1 x = Monday Case 2 x = Tuesday Case 3 x 二”Wednesday” Case 4 x = Thursday Case 5 X = Friday Case 6 x = Saturday** Case 7 x =Sunday” Case Else MsgBox (”你输入的数字不在1-7范围内”) End Select y = Choose(d, Monday, Tuesday, Wednesday1, Thursday, Friday, Saturday, “Sunday”) Print ”您输入的数字“;d Print y 编一模拟袖珍计算器的完整程序，界面如图 4.4所示。要求：输入两个操作数和一个操 作符，根据操作符决定所做的运 作符，根据操作符决定所做的运 提示: 为了程序运行正确，对存放操作符的文本框Text3 ,应使用trim(Text3)函数，去除 运算符两边的空格。 根据存放操作符的文本框利用Select Case语句实现。 Dim x As Single Dim y As Single Dim z As Single x = Val(Textl.Text) y = Val(Text2.Text) Select Case Trim(Text3) Case ” z = x + y Case “■” z = x - y Case z = x * y Case T z = x / y Case %” z = x A y Case “\” z = x \ y End Select Text4.Text = z 杨辉3角 Dim a( 8) As Integer Dim i As Integer Dim j As Integer a(U)=l For i = 2 To 8 a(i,j)= 1 Forj =2Toi a(i,j) = a(i- l,j- l) + a(i- l,j) Next j Next i For i = 1 To 8 Forj = 1 Toi Print a(i, j); Next j Print 1 Next i Option Explicit Dim a(9, 9) As Long Dim b(9) As String Dim i As Byte Dim j As Byte Private Sub Form_Load() a(0, 0) = 1 For i = 1 To 9 Fo叮=1 To 9 a(i,j) = a(i- l,j- 1) + a(i -