09vb期末上机练习题及参考答案

《09vb期末上机练习题及参考答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VB后半学期练习题09VB本科期末上机练习及参考答案1、编制通用函数过程，计算1+2+……+N的值。在窗体的Click事件中调用该函数。[参考答案1]：PrivateFunctionsum(nAsInteger)AslongDimiAsIntegerFori=1Tonsum=sum+iNextiEndFunctionPrivateSubForm_Click()Printsum(100)EndSub2、编制通用函数过程，计算N！的值。在窗体的Click事件中调用该函数。[参考答案2]：PrivateFunctionfact(nAsInteger

2、)AsDoubleDimiAsIntegerfact=1Fori=1Tonfact=fact*iNextiEndFunctionPrivateSubForm_Click()Printfact(5)EndSub3、编制通用函数过程，用于判断1个整数是否为素数，若是则显示true，若不是则显示false。在窗体的Click事件中调用该函数。[参考答案3]：-14-VB后半学期练习题PrivateFunctionprime(nAsInteger)AsBooleanDimiAsIntegerIfn<2Thenprime=FalseElseFori=2

3、ToInt(Sqr(n))IfnModi=0ThenExitForNextiIfi>Int(Sqr(n))Thenprime=TrueElseprime=FalseEndIfEndIfEndFunctionPrivateSubForm_Click()Printprime(4),prime(7)EndSub-14-VB后半学期练习题4、编制一个判断奇偶数的Function函数过程。在窗体的Click事件中调用该函数，输入一个整数，判断其奇偶性。[参考答案4]：PrivateFunctionodd(nAsInteger)AsBooleanIfnM

4、od2=0Thenodd=FalseElseodd=TrueEndifEndFunctionPrivateSubForm_Click()Primeodd(4),odd(5)EndSub5、新建一个工程，完成“密码检验”程序的设计。参照运行时界面完成界面设计。具体要求如下：（1）文本框Text1，用于输入密码。文本框中输入的字符显示为*，并且最多可以接受7个字符。（2）窗体的下半部有一个标签控件Label2，用来显示密码输入后的提示信息。（3）当在文本框中输入密码“1234567”，并按回车后，标签Label2显示为“欢迎光临！”；如果输入的密

5、码与“1234567”不吻合，标签Label2显示为“密码不符，请再输入一遍！”，同时清空文本框的内容，允许再输入一遍；如果第二次输入的密码仍然与“1234567”不吻合，标签Label2显示为“非法用户，请退出程序！”，文本框就不能使用了。[参考答案5]：PrivateSubForm_Load()Label1.Caption="输入密码后按回车"&Chr(13)&Chr(10)&"(提示密码：1234567)"Text1.PasswordChar="*"Text1.MaxLength=7EndSub-14-VB后半学期练习题PrivateS

6、ubtext1_keypress(keyasciiAsInteger)StaticnAsIntegerIfkeyascii=13ThenIfText1.Text="1234567"ThenLabel2.Caption="欢迎光临！"Label1.Visible=FalseText1.Visible=FalseElsen=n+1Ifn<2ThenLabel2.Caption="密码错误，重新输入！“"Text1.Text=""ElseLabel2.Caption="非法用户，退出程序!"Text1.Enabled=FalseEndIfEndIf

7、EndIfEndSub1、新建一个工程，完成“编辑”程序的设计。具体要求如下：（1）窗体的标题为“编辑”。（2）窗体中有以下控件：一个文本框、四个命令按钮。（3）完成以下功能：文本框实现文本编辑功能，单击按钮实现相应功能。[参考答案6]：PrivateSubCommand1_Click()Clipboard.Clear'清除剪贴板中的内容'Clipboard.SetTextText1.SelText'将选中文本送入剪贴板'EndSubPrivateSubCommand2_Click()Clipboard.ClearClipboard.SetT

8、extText1.SelTextText1.SelText=""'清空文本框内被选中的文本'EndSubPrivateSubCommand3_Click()Text