编程题考试围(共10题).doc

《编程题考试围(共10题).doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、1题目：请按照题目要求设计指定的窗体。---------------------------------------------------------------------输入一个正整数数，判断其是否为素数，并用msgbox来显示结果。例如输入23显示＇23是素数＇；输入21则显示＇21不是素数＇。判断按钮：实现素数判断OptionExplicitPrivateSubCommand1_Click()DimxAsInteger'x用来表示正整数DimiAsInteger'i用来作为循环变量x=Val(Text1.Text)Fori=2Tox-1IfxModi=0

2、ThenExitForNextiIfi>x-1ThenMsgBoxx&"是素数"ElseMsgBoxx&"不是素数"EndIfEndSub2题目：请按照题目要求设计指定的窗体。---------------------------------------------------------------------输入一个二进制数，将其转化为十进制数。转换按钮：用于实现进制的转换清空按钮：用于实现文本框的清空，同时将焦点定位在Text1中OptionExplicitPrivateSubCommand1_Click()DimsAsString'用来表示2进制数Dimx

3、AsInteger'用来表示转化后的10进制DimiAsInteger'用来表示循环变量s=Text1.TextFori=1ToLen(s)x=x+Mid(s,i,1)*2^(Len(s)-i)NextiText2.Text=xEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text1.SetFocusEndSub3题目：请按照题目要求设计指定的窗体。---------------------------------------------------------------------输入一个1

4、0进制正整数，将其转换为一个2进制数。转换按钮：实现进制转换清空按钮：实现文本框的清空，同时焦点定位在Text1中OptionExplicitPrivateSubCommand1_Click()DimxAsInteger'用来表示10进制数DimsAsString'用来表示2进制数x=Val(Text1.Text)Dos=(xMod2)&sx=x2LoopUntilx=0Text2.Text=sEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text1.SetFocusEndSub4题目：请按照

5、题目要求设计指定的窗体。---------------------------------------------------------------------输入2个正整数，求这2个数的最大公约数。计算按钮：用来实现计算最大公约数退出按钮：用来实现程序的退出OptionExplicitPrivateSubCommand1_Click()DimmAsInteger,nAsInteger'分别用来表示两个数DimrAsInteger'用来表示余数m=Val(Text1.Text)n=Val(Text2.Text)Dor=mModnm=nn=rLoopUntilr=

6、0Text3.Text=mEndSubPrivateSubCommand2_Click()EndEndSub5题目：请按照题目要求设计指定的窗体。---------------------------------------------------------------------产生10个10~100之间的两位随机整数，将10个数显示一个文本框中同时查找其中是否有某个数，如果有给出其在数组中的位置，如果没有给出相应的提示信息。结果信息用msgbox消息框弹出提示，如“36出现在第2位”；或者“没有出现36”OptionExplicitDima(1To10)As

7、Integer'数组用来存放10个数PrivateSubCommand1_Click()DimiAsInteger'用来表示循环变量Fori=1To10a(i)=Int(Rnd*90+10)Text1.Text=Text1.Text&a(i)&""NextiEndSubPrivateSubCommand2_Click()DimiAsInteger'用来表示循环变量DimxAsInteger'用来表示需要查找的数x=Val(Text2.Text)Fori=1To10Ifx=a(i)ThenExitForNextiIfi>10ThenMsgBox"没有出现"&xEls

8、eMsgB