Question

谁可以告诉我这些题的VB变成代码

1.用单行结构条件语句实现：从文本框输入一个数，单击“判断”按钮判断它能否同时被3，5，7整除，若能整除，则用消息框显示“能同时被3，5，7整除”，否则显示“不能整除”。

2。用单行结构条件语句实现：用InputBox函数输入三个数，选出其中的最大数和最小数，显示于窗体上。

3。用块结构条件语句实现：从文本框输入a，b值，单击“计算”按钮按以下公式计算y值。
y=｛lna+lnb a>0,b>0
sina+sinb a>0,b≤0
sina+cosb a≤0

4.用块结构条件语句实现：从文本框输入月收入，单击“计算”按钮按以下规定计算税款，结果显示于另一个文本框中。
月收入少于或等于800元者 不纳税
月收入在800元到2000元者 税款为超过800元部分的10%
月收入超过2000元者 税款为超过800元部分的20%

6。用多分支选择语句实现：输入年份和月份，求该月的天数。
提示：当月份为1，3，5，7，8，10，12时，天数为31天；当月份为 4， 6，9，11时，天数为30天；当月份为2时，如果为闰年则天数为29天，否则为28天。某年为闰年的条件是：年份能被4整除，但不能被100整除，或年份能被400整除。

3．单击第一个按钮，生成20个〔0，100〕之间的随机整数，显示于文本框中，单击第二个按钮，求这20个随机整数中的最大数，并将其显示在另一个文本框中．

5．单击第一个按钮，生成20个〔1，50〕之间的随机整数，显示于第一个文本框中，单击第二个按钮，将这20个随机整数按从大到小排序，并将排序结果显示在另一个文本框中．

Answer 1

1.代码:
Dim i As Integer
i = Val(Text1.Text)
If i Mod 3 = 0 And i Mod 5 = 0 And i Mod 7 = 0 Then
MsgBox "能同时被3，5，7整除"
Else
MsgBox "不能整除"
End If
2.代码:
a = Val(InputBox("输入数据"))
b = Val(InputBox("输入数据"))
c = Val(InputBox("输入数据"))
max_it = IIf(a > b, IIf(a > c, a, c), IIf(b > c, b, c))
min_it = IIf(a < b, IIf(a < c, a, c), IIf(b < c, b, c))
3.代码:
If a > 0 Then
If b > 0 Then
y = Log(a * b)
Else
y = Sin(a) + Sin(b)
End If
Else
Sin (a) + Cos(b)
End If
4.代码:
a = Val(Text1.Text)'输入
Dim tax As Long '税款
If a > 2000 Then
tax = (a - 800) * 0.2
ElseIf a > 800 Then
tax = (a - 800) * 0.1
Else
tax = 0
End If

Answer 2

先看看~~

Answer 3

好多....懒得弄了....对不起啊 呵呵