在窗体上建立一个文本框、一个图片框和三个命令按钮,把三个命令.

1、编写程序，用文本框检查口令输入。在窗体上建立一个文本框、一个图片框和三个命令

按钮，把三个命令按钮的标题分别设置为“开始”、“检查口令”和“结束”。程序运行后，单击第一个命令按钮，清除文本框中的信息，并把光标移到文本框中；在文本框中输入口令；单击第二个命令按钮，检查输入口令是否正确。如果正确，则在图片框中显示图形；否则显示信息框，要求重新输入，此时调用第一个命令按钮的Click 事件过程，重新在文本框中输入口令，直到输入口令正确为止。如果单击“结束”按钮，则结束程序。画出界面设计，属性列表，写出相关事件过程代码。

答：Text1

PasswordChar = "*"

Command3

Caption = " 结束"

Command2

Caption = " 检查口令"

Command1

Caption = " 开始"

Image1

Stretch = True

Visible = False

Label1

Caption = " 口令"

Option Explicit

Dim msg As String

Const password = "1234"

Private Sub Command1_Click( Text1.Text = ""

Image1.Visible = False

Text1.SetFocus

End Sub

Private Sub Command2_Click(

If Text1.Text = password Then Image1.Visible = True

Else

msg = "口令不对，请重新输入！" MsgBox msg

Call Command1_Click

End If

End Sub

Private Sub Command3_Click( End

End Sub

除此之外还要画上书上的界面。

2、从键盘上输入10个整数，并放入一个一维数组中，然后将其前5个元素与后5个元素

对换，即：第1个元素与第10个元素互换，第2个元素与第9个元素互换。。。。。。第5个元素与第6个元素互换。分别输出数组原来各元素和对换后各元素的值。

答：Dim arra(1 To 10 As Integer, arrb(1 To 10 As Integer

Dim i As Integer, x As Variant

For i = 1 To 10

arra(i = Val(InputBox$("请输入要互换的10个数"

Next i

For i = 1 To 10

arrb(11 - i = arra(i

Next i

Print "原数："

For Each x In arra

Print x; " ";

Next x

Print

Print "互换后的数："

For Each x In arrb

Print x; " ";

Next x

End Sub

3、编写程序，根据输入整数n ，计算并输出S=1!+2!+3!+…+n!的结果，请将求阶层的功编

写为一个函数。

答：'**** 9.2 函数过程****

Function fac(n As Integer As Double

Dim i As Integer, z As Double

z = 1

For i = 1 To n

z = z * i

Next i

factorial = z

End Function

'****9.2 主程序（调用函数过程的事件过程****

Private Sub Command2_Click(

Dim s As Double, a As Integer, b As Integer, c As Integer

a = Val(InputBox$("请输入A"

b = Val(InputBox$("请输入B"

c = Val(InputBox$("请输入C"

s = fac(a + fac(b + fac(c

Print "s="; s

End Sub

4、税务部门征收所得税，规定如下：

1 收入在200元以内的，免征；

2 收入在200~400元内的，超过200元的部分纳税3%；

3 收入超过400元的部分，纳税4%；

4 当收入达到或超过5000元时，将4%税金改为5%。编写程序接收用户输入的收入值计算并输出此用户应付的税金。答：

Private Sub Command6_Click(

Dim m As Double, tax As Double

m = Val(InputBox$("请输入收入"

If m <= 200 Then

tax = 0

ElseIf m > 200 And m <= 400 Then

tax = (m - 200 * 0.03

ElseIf m > 400 And m < 5000 Then tax = (m - 400 * 0.04

Else

tax = (m - 400 * 0.05

End If

Print "收入所得税："; tax

End Sub