编程题考试范围(共10题)

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

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=xEndSub3题目：请按照题目要求设计指定的窗体。---------------------------------------------------------------------输入一个10进制正整数，将其转换为一个2进制数。转换按钮：实现进制转换清空按钮：实现文本框的清空，同时焦点定位在Text1中OptionExplicitP

4、rivateSubCommand1_Click()DimxAsInteger'用来表示10进制数DimsAsString'用来表示2进制数x=Val(Text1.Text)Dos=(xMod2)&sx=x2LoopUntilx=0Text2.Text=sEndSub4题目：请按照题目要求设计指定的窗体。---------------------------------------------------------------------输入2个正整数，求这2个数的最大公约数。OptionExplicit计算按钮：用来实现计算最大公约数PrivateSubCom

5、mand1_Click()退出按钮：用来实现程序的退出DimmAsInteger,nAsIntegerDimrAsIntegerm=Val(Text1.Text)n=Val(Text2.Text)Dor=mModnm=nn=rLoopUntilr=0Text3.Text=mEndSub5题目：请按照题目要求设计指定的窗体。---------------------------------------------------------------------产生10个10~100之间的两位随机整数，将10个数显示一个文本框中同时查找其中是否有某个数，如果有给出其在

6、数组中的位置，如果没有给出相应的提示信息。结果信息用msgbox消息框弹出提示，如“36出现在第2位”；或者“没有出现36”OptionExplicitFori=1To10Dima(1To10)AsIntegerIfx=a(i)ThenExitForPrivateSubCommand1_Click()NextiDimiAsIntegerIfi>10ThenMsgBox"没有出现"&xFori=1To10Elsea(i)=Int(Rnd*90+10)MsgBoxx&"出现在第"&i&"位"Text1.Text=Text1.Text&a(i)&""EndIfNextI

7、EndSubEndSubPrivateSubCommand2_Click()DimiAsIntegerDimxAsIntegerx=Val(Text2.Text)6.题目：请按照题目要求设计指定的窗体。---------------------------------------------------------------------随机产生10个两位整数，存放在数组中，将10个数显示在一个文本框中并从中找出一个最大数和一个最小数,分别显示在文本框中。OptionExplicitDima(1To10)AsIntegerPrivateSubCommand1_Cl

8、ick()