请VB高手看看着这几题。小弟初学谢谢大家啊！

2025-02-11 20:53:48

推荐回答（5个）

回答1：

第一题
Private Sub Form_click()
s=0
for n= 1 to 100
s=s+n
next n
print "s=";s
End Sub
第二题
Private Sub Form_click()
S = InputBox("请输入金额", "税收")
If S < 200 Then
Print "您不用缴纳税收"
ElseIf S >= 200 And S < 400 Then
x = (S - 200) * 0.03
Print "您需要缴纳的税收是："; x
ElseIf S >= 400 And S < 5000 Then
x = (S - 400) * 0.04
Print "您需要缴纳的税收是："; x
ElseIf S >= 5000 Then
x = (S - 5000) * 0.05
Print "您需要缴纳的税收是："; x
End If

End Sub

第三题
Private Sub Form_click()
S = InputBox("请输入星期（0-6表示）", "工作安排")
Select Case S
Case "1"
MsgBox "计算机课"
Case "3"
MsgBox "计算机课"

Case "2"
MsgBox "程序设计课"
Case "4"
MsgBox "程序设计课"
Case "5"
MsgBox "进修英语"
Case "6"
MsgBox "政治学习"
Case "0"
MsgBox "休息"
Case Else
MsgBox "输入错误，请重新输入:"
End Select

End Sub

搞笑了一楼最多10分钟之内写完还2天呢。。。我晕

回答2：

1.dim x as int
dim a as int
for x=1to100
a=a+x
next
我只给你说算法，
2.第二个三个IF就行了，
3，用CASE分类就行了。我时间不多就写这些

回答3：

1、
Static my As Integer
For i = 1 To 100
my = my + i
Next
Print my

2、
my = CInt(InputBox("请输入税务部门征收所得税（元）", "输入"))
If my < 200 Then
Print "免征"
ElseIf my < 400 And my > 200 Then
Print "应纳税" & my * 0.03
ElseIf my > 400 Then
Print "应纳税" & my * 0.04
ElseIf my >= 5000 Then
Print "应纳税" & my * 0.05
End If

3、

Dim S(0 To 5) As String
Dim My As Integer

Private Sub Command1_Click()
S(0) = "计算机课"
S(1) = "程序设计课"
S(3) = "进修英语"
S(4) = "政治学习"
S(5) = "休息"
My = InputBox("请输入(0-6)分别代表星期日到星期六", "输入")
If My = 1 Or My = 3 Then
Print "今天" & S(0)
ElseIf My = 2 Or My = 4 Then
Print "今天" & S(1)
ElseIf My = 5 Then
Print "今天" & S(3)
ElseIf My = 6 Then
Print "今天" & S(4)
ElseIf My = 0 Then
Print "今天" & S(5)
Else
MsgBox "按确定退出!", vbOKOnly, "退出!"
end
End If
End Sub

回答4：

第一题很简单
dim a as int
dim b as int
for a=1to100
b=b+x
next b

回答5：

你要别人做好以后给你，不太现实。别人没有那么多时间~我也会的不多。。要是给你全做出来也要2天！！！

最好你试着自己做。。把自己做的运行一下。。就知道哪里有问题了。。。是在解决不了。。再让大家看看！

最新问答

铁锅炖鱼铁饼子的做法步骤图，怎么做好吃

各位好心大侠帮下忙，谢谢了！

将来能成大器的男生，二十岁什么样？性格方面。

初中后没学过英语现在应该怎么学？

大酱包装后胀气怎么办

一个男生说我是女汉子，我不高兴就问他，他给我发了这个，是啥意思

请VB高手看看着这几题。小弟初学 谢谢大家啊！

请VB高手看看着这几题。小弟初学谢谢大家啊！