只要程序没有运行起来就都没有分大学vb计算机考试题库中华文库,是按照一题一题给的,不是一空一空给的分。
vb程序设计练习题
在窗口中拖出3个控件,文本框Textbox1,按钮button1,button2.
编辑button1单击事件,Textbox1.Visibled = false
编辑button2单击事件,Textbox1.Visibled = true
关于计算机VB的题目
我用了最原始的方法帮你按题目做了一个, 源代码如下Private Sub Command1_Click()
If Text1.Text = Then
MsgBox 请输入个人收入, vbOKOnly + 48, 出错
Text1.SetFocus
ElseIf Text1.Text <= 2000 Then
MsgBox 个人收入未达纳税底线, vbOKOnly + 48, 提示
Text1.SetFocus
ElseIf Text1.Text > 2000 Then
M = Text1.Text - 2000
If M < 500 Then
Label1.Caption = M * 0.05
ElseIf M >= 500 And M < 2000 Then
Label1.Caption = M * 0.1 - 25
ElseIf M >= 2000 And M < 5000 Then
Label1.Caption = M * 0.15 - 125
ElseIf M >= 5000 And M < 20000 Then
Label1.Caption = M * 0.2 - 375
ElseIf M >= 20000 And M < 40000 Then
Label1.Caption = M * 0.25 - 1375
ElseIf M >= 40000 And M < 6000 Then
Label1.Caption = M * 0.3 - 3375
ElseIf M >= 60000 And M < 80000 Then
Label1.Caption = M * 0.35 - 6375
ElseIf M >= 80000 And M < 100000 Then
Label1.Caption = M * 0.4 - 10375
ElseIf M >= 100000 Then
Label1.Caption = M * 0.45 - 15375
End If
End If
End Sub
Private Sub Command2_Click()
End
End Sub
程序控件如下图