09VB期末上机练习题及参考答案.docVIP

09VB 本科期末上机练习及参考答案 编制通用函数过程，计算1+2+……+N 的值。在窗体的Click事件中调用该函数。 [参考答案1]： Private Function sum(n As Integer) As long Dim i As Integer For i = 1 To n sum = sum + i Next i End Function Private Sub Form_Click() Print sum(100) End Sub 编制通用函数过程，计算N！的值。在窗体的Click事件中调用该函数。 [参考答案2]： Private Function fact(n As Integer) As Double Dim i As Integer fact = 1 For i = 1 To n fact = fact * i Next i End Function Private Sub Form_Click() Print fact(5) End Sub 编制通用函数过程，用于判断1个整数是否为素数，若是则显示true，若不是则显示false。在窗体的Click事件中调用该函数。 [参考答案3]： Private Function prime(n As Integer) As Boolean Dim i As Integer If n 2 Then prime = False Else For i = 2 To Int(Sqr(n)) If n Mod i = 0 Then Exit For Next i If i Int(Sqr(n)) Then prime = True Else prime = False End If End If End Function Private Sub Form_Click() Print prime(4),prime(7) End Sub 编制一个判断奇偶数的Function函数过程。在窗体的Click事件中调用该函数，输入一个整数，判断其奇偶性。 [参考答案4]： Private Function odd(n As Integer) As Boolean If n Mod 2 = 0 Then odd = False Else odd = True End if End Function Private Sub Form_Click() Prime odd(4),odd(5) End Sub 新建一个工程，完成“密码检验”程序的设计。参照运行时界面完成界面设计。具体要求如下： （1）文本框Text1，用于输入密码。文本框中输入的字符显示为*，并且最多可以接受7个字符。 （2）窗体的下半部有一个标签控件Label2，用来显示密码输入后的提示信息。 （3）当在文本框中输入密码“1234567”，并按回车后，标签Label2显示为“欢迎光临！”；如果输入的密码与“1234567”不吻合，标签Label2显示为“密码不符，请再输入一遍！”，同时清空文本框的内容，允许再输入一遍；如果第二次输入的密码仍然与“1234567”不吻合，标签Label2显示为“非法用户，请退出程序！”，文本框就不能使用了。 [参考答案5]： Private Sub Form_Load() Label1.Caption = 输入密码后按回车 Chr(13) Chr(10) (提示密码：1234567) Text1.PasswordChar = * Text1.MaxLength = 7 End Sub Private Sub text1_keypress(keyascii As Integer) Static n As Integer If keyascii = 13 Then If Text1.Text = 1234567 Then Label2.Caption = 欢迎光临！ Label1.Visible = False Text1.Visible = False Else n = n + 1 If n 2 Then Label2.Caption = 密码错误，重新输入！“ Text1.Text = Else Label2.Caption = 非法用户，退出程序! Text1.Enabled = False End If End If