VB上机参考答案

《VB上机参考答案》由会员分享，可在线阅读，更多相关《VB上机参考答案（23页珍藏版）》请在文档大全上搜索。

1、1、 编制通用函数过程，计算1+2+N 的值。在窗体的Click事件中调用该函数。Private Function sum(n As Integer) As long Dim i As Integer For i = 1 To n sum = sum + i Next iEnd FunctionPrivate Sub Form_Click() Print sum(100)'任意选取一个数对函数过程进行调试就可End Sub2、 编制通用函数过程，计算N！的值。在窗体的Click事件中调用该函数。Private Function fact(n As Integer) As Double

2、Dim i As Integer fact = 1 '必须赋初值 For i = 1 To n fact = fact * i Next iEnd FunctionPrivate Sub Form_Click() Print fact(5) End Sub3、 编制通用函数过程，用于判断1个整数是否为素数，若是则显示true，若不是则显示false。在窗体的Click事件中调用该函数。Private Function prime(n As Integer) As Boolean' Boolean逻辑型 Dim i As Integer If n < 2 Then prim

3、e = 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 IfEnd FunctionPrivate Sub Form_Click() Print prime(4),prime(7) End Sub4、 编制一个判断奇偶数的Function函数过程。在窗体的Click事件中调用该函数，输入一个整数，判断其奇偶性。比如：输入10则显示“10是偶数”，输入3则显示“3是奇

4、数”Private Function Odd(n As Integer) As stringIf n Mod 2 = 0 Then Odd =n & “是偶数”Else Odd = n & “是奇数”End ifEnd FunctionPrivate Sub Form_Click() Print Odd(4),Odd(5) End Sub5、 新建一个工程，完成“密码检验”程序的设计。具体要求如下：（1）参照运行时界面完成界面设计。（2）文本框Text1，用于输入密码。文本框中输入的字符显示为*，并且最多可以接受7个字符。（3）窗体的下半部有一个标签控件Label2，用来显示密

5、码输入后的提示信息。（4）当在文本框中输入密码“1234567”，并按回车后，标签Label2显示为“欢迎光临！”；如果输入的密码与“1234567”不吻合，标签Label2显示为“密码不符，请再输入一遍！”，同时清空文本框的内容，允许再输入一遍；如果第二次输入的密码仍然与“1234567”不吻合，标签Label2显示为“非法用户，请退出程序！”，文本框就不能使用了。Private Sub Form_Load() Label1.Caption = "输入密码后按回车" & chr(13) & chr(10) & "（提示：密码1234567

6、）" Text1.PasswordChar = "*" Text1.MaxLength = 7End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)Static n As Integer'n用来记录输入次数 If KeyAscii = 13 Then'表示单击回车后 If Text1.Text = "1234567" Then'判断密码是否正确 Label2.Caption = "欢迎光临！" Label1.Visible = False Text

7、1.Visible = FalseElse n = n + 1'计算输入次数 If n<2 Then Label2.Caption = "密码不符，请再输入一遍！" Text1.Text = "" Else Label2.Caption = "非法用户，请退出程序！" Text1.Enabled = False'文本框不可用 End If End If End IfEnd Sub6、 新建一个工程，完成“编辑”程序的设计。具体要求如下：（1）窗体的标题为“编辑”。（2）窗体中有以下控件：一个文本框、四个命令按钮。

8、（3）完成以下功能：文本框实现文本编辑功能，单击按钮实现相应功能。Private Sub Command1_Click() Clipboard.Clear '清除剪贴板中的内容' Clipboard.SetText Text1.SelText '将选中文本送入剪贴板End SubPrivate Sub Command2_Click() Clipboard.Clear Clipboard.SetText Text1.SelText Text1.SelText = "" '清空文本框内被选中的文本'End SubPrivate Sub C

9、ommand3_Click() Text1.SelText = Clipboard.GetText '将剪贴板上的文本复制到指定文本框的光标处'End SubPrivate Sub Command4_Click() Text1.SelText = "" '清空文本框内被选中的文本'End SubPrivate Sub Form_Load() Text1.Text = ""End Sub7、新建一个工程，完成“替换”程序的设计。具体要求如下：(1) 窗体的标题为“替换”。(2) 窗体中有以下控件：一个文本框可以多行编辑，两个

10、文本框，两个标签框，一个命令按钮。(3) 完成以下功能：输入查找内容，把编辑框中所有与查找内容一样的部分替换成另外一个内容。单击“替换”按钮执行。Private Sub Command1_Click() Dim len1 As Integer, len2 As Integer, len3 As Integer len1 = Len(Text1)'计算文本框1的长度放入变量len1中 len2 = Len(Text2)'计算文本框2的长度放入变量len2中 len3 = Len(Text3) '计算文本框3的长度放入变量len3中 Do While i <= len

11、1 - len2 If Text2 = Mid(Text1, i + 1, len2) Then'判断文本是否与查找的对象一致 Text1.SetFocus Text1.SelStart = i Text1.SelLength = len2 Text1.SelText = Text3 i = i + len3'替换后光标的位置 len1 = len1 - len2 + len3 Else i = i + 1 End If LoopEnd Sub8、 新建一个工程，完成“字体修饰” 程序的设计。具体要求如下：（1） 按照下图所示在窗体上放置按钮和控件。窗体的标题为“字体修饰”。（