VB 急！！！所有分数都给！

来源：百度知道 编辑：UC知道 时间：2024/06/20 09:57:25
1.单击Command1按钮完成：根据购物的金额，商店会给顾客一定的折扣，当购物超过1000元 (x >1000) 给50%的折扣，当购物金额1000元~500元之间 (1000>= x >500 )折扣为25%，当购物金额500元~300元之间 (500>=x >300)折扣为12%，当购物金额300元~100元之间(300>=x>100)折扣为5%，当购物小于100元(x<=100)折扣为0，从文本框输入购物金额，在窗体上输出实际消费金额。

2.单击Command2按钮完成：分别统计1-50中，满足3的倍数、7的倍数的数共有多少个，并在窗体上分别输出个数。

3.单击Command3按钮完成：一个4*4的二维数组，他们的元素是 20-60 的随机整数，请在窗体上输出这个二维数组，并输出它的对角线的和。

Private Sub Command1_Click()
Dim x As Single, cost As Single

x = Val(Trim(Text1.Text))
Select Case True
Case x > 1000
cost = x - x * 0.5
Case x > 500 And x <= 1000
cost = x - x * 0.25
Case x > 300 And x <= 500
cost = x - x * 0.12
Case x > 100 And x <= 300
cost = x - x * 0.05
Case x <= 100
cost = x
End Select
Print "实际消费金额：" & cost

End Sub

Private Sub Command2_Click()
Dim i As Integer, a3 As Integer, a7 As Integer, a37 As Integer

a3 = 0: a7 = 0: a37 = 0
For i = 1 To 50
If i Mod 3 = 0 Then a3 = a3 + 1
If i Mod 7 = 0 Then a7 = a7 + 1
If i Mod 3 = 0 And i Mod 7 = 0 Then a37 = a37 + 1
Next
Print "1-50中，3的倍数为" & a3 & "个，7的倍数为" & a7 & "个，既是3的倍数又是7的倍数为" & a37 & "个"

End Sub

Private Sub Command3_Click()
Dim a44(0 To 3, 0 To 3) As Integer, asum1 As