09vb上机参考答案-2

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

1、VB后半学期练习题1、编制通用函数过程，计算1+2+……+N的值。在窗体的Click事件中调用该函数。PrivateFunctionsum(nAsInteger)AslongDimiAsIntegerFori=1Tonsum=sum+iNextiEndFunctionPrivateSubForm_Click()Printsum(100)'任意选取一个数对函数过程进行调试就可EndSub2、编制通用函数过程，计算N！的值。在窗体的Click事件中调用该函数。PrivateFunctionfact(nAsInteger)AsDoubleDimiAsIntegerfact=1'必须赋初值Fori=

2、1Tonfact=fact*iNextiEndFunctionPrivateSubForm_Click()Printfact(5)EndSub3、编制通用函数过程，用于判断1个整数是否为素数，若是则显示true，若不是则显示false。在窗体的Click事件中调用该函数。PrivateFunctionprime(nAsInteger)AsBoolean'Boolean逻辑型DimiAsIntegerIfn<2Thenprime=FalseElseFori=2ToInt(Sqr(n))IfnModi=0ThenExitForNextiIfi>Int(Sqr(n))Thenprime=TrueE

3、lseprime=FalseEndIfEndIfEndFunctionPrivateSubForm_Click()Printprime(4),prime(7)EndSub4、编制一个判断奇偶数的Function函数过程。在窗体的Click事件中调用该函数，输入一个整数，判断其奇偶性。比如：输入10则显示“10是偶数”，输入3则显示“3是奇数”PrivateFunctionOdd(nAsInteger)AsstringIfnMod2=0ThenOdd=n&“是偶数”ElseOdd=n&“是奇数”EndifEndFunctionPrivateSubForm_Click()PrintOdd(4),

4、Odd(5)EndSub5、新建一个工程，完成“密码检验”程序的设计。具体要求如下：（1）参照运行时界面完成界面设计。（2）文本框Text1，用于输入密码。文本框中输入的字符显示为*，并且最多可以接受7个字符。（3）窗体的下半部有一个标签控件Label2，用来显示密码输入后的提示信息。（4）当在文本框中输入密码“1234567”，并按回车后，标签Label2显示为“欢迎光临！”24VB后半学期练习题；如果输入的密码与“1234567”不吻合，标签Label2显示为“密码不符，请再输入一遍！”，同时清空文本框的内容，允许再输入一遍；如果第二次输入的密码仍然与“1234567”不吻合，标签Lab

5、el2显示为“非法用户，请退出程序！”，文本框就不能使用了。PrivateSubForm_Load()Label1.Caption="输入密码后按回车"&chr(13)&chr(10)&"（提示：密码1234567）"Text1.PasswordChar="*"Text1.MaxLength=7EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)StaticnAsInteger'n用来记录输入次数IfKeyAscii=13Then'表示单击回车后IfText1.Text="1234567"Then'判断密码是否正确Label2.Caption="

6、欢迎光临！"Label1.Visible=FalseText1.Visible=FalseElsen=n+1'计算输入次数Ifn<2ThenLabel2.Caption="密码不符，请再输入一遍！"Text1.Text=""ElseLabel2.Caption="非法用户，请退出程序！"Text1.Enabled=False'文本框不可用EndIfEndIfEndIfEndSub1、新建一个工程，完成“编辑”程序的设计。具体要求如下：（1）窗体的标题为“编辑”。（2）窗体中有以下控件：一个文本框、四个命令按钮。（3）完成以下功能：文本框实现文本编辑功能，单击按钮实现相应功能。PrivateS

7、ubCommand1_Click()Clipboard.Clear'清除剪贴板中的内容'Clipboard.SetTextText1.SelText'将选中文本送入剪贴板EndSubPrivateSubCommand2_Click()Clipboard.ClearClipboard.SetTextText1.SelTextText1.SelText=""'清空文本框内被选中的文本'EndSubPrivateS