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

编写程序，用文本框检查口令输入。在窗体上建立一个文本框、一个图片框和三个命令按钮，把三个命令按钮的标题分别设置为“开始”、“检查口令”和“结束”。程序运行后，单击第一个命令按钮，清除文本框中的信息，并把光标移到文本框中；在文本框中输入口令；单击第二个命令按钮，检查输入口令是否正确。如果正确，则在图片框中显示图形；否则显示信息框，要求重新输入，此时调用第一个命令按钮的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 除此之外还要画上书上的界面。 从键盘上输入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 编写程序，根据输入整数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 税务部门征收所得税，规定如下： 收入在200元以内的，免征； 收入在200~400元内的，超过200元的部分纳税3%； 收入超过400元的部分，纳税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