大学vb计算机考试题库中华文库,计算机二级VB题

2024-04-26 17:35:11计算机类295

只要程序没有运行起来就都没有分大学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
程序控件如下图

TAG标签：题目计算机关于