VB题目...来几个人解答下..

来源：百度知道 编辑：UC知道 时间：2024/05/26 20:21:31
题目要求：画出流程图（这我会自己搞定~），实现算法
1.节日期间，某超市购物优惠规定：所购物品不超过100元时，按九折付款，如超过100元，超过部分按七折收费
2.输入两个字符，若这两个字符的ASCII码之差是奇数，输出两个字符的后继字符；否则打印它们的前趋字符（这题目根本看不懂什么意思马...郁闷）
第二题的图（不能上传就手打啦）
（小括号表示的是Text文本框）
[中括号表示的是Command按扭]
输入字符1：（ ）←Text1
输入字符2：（ ）←Text2
输出字符1：（ ）←Text3
输出字符2：（ ）←Text4
[判别输出]←Command1

Private Sub Command1_Click()
Dim n!
n = Val(InputBox("请输入购物款吧!!"))
Print "实际应付款为:"; IIf(n <= 100, n * 0.9, n * 0.7)
End Sub

Private Sub Command2_Click()
Dim j1%, j2%
j1 = Asc(Text1)
j2 = Asc(Text2)
Text3 = IIf((j1 - j2) Mod 2 <> 0, Chr(j1 + 1), Chr(j1 - 1))
Text4 = IIf((j1 - j2) Mod 2 <> 0, Chr(j2 + 1), Chr(j2 - 1))
End Sub

第1题
Private Sub Command1_Click()
Dim x As Integer
x = Text1.Text
y = x - 100
If y < 0 Then
Print x * 0.9
Else
Print y * 0.7 + 90
End If
End Sub
第2题 题目看不懂