Loop
Ifcount=1ThenPrinta（i）;"";ElsePrintcount;"*";a（i）;"";
i=i+count
Loop
EndSub
6.本程序的功能是在窗体随机产生10个长度为1~20之间的大写字母字符串，并同时显示最长字符串的字符数及内容，如图所示。
PrivateSubCommand1_Click（）
Cls
Dimst（1To10）AsString,cAsString*1
Dimi%,n%
Fori=1To10
____
Forj=1Ton
c=Chr（Int（Rnd*26+65））
st（i）=______
Nextj
Printst（i）
Nexti
maxlen=0
maxstr=""
Fori=1To10
If_____Then
maxlen=Len（st（i））
maxstr=______
EndIf
Nexti
____
EndSub
7.两素数的差为2，称此对素数为素数对，下列程序是成对显示100以内的素数对。
其中，函数isP的功能是判断参数m是否为素数，若是返回True，否则返回False。
PublicFunctionisP（m）AsBoolean
Dimi%
Fori=2ToInt（Sqr（m））
IfThenIsP=False
Nexti
EndFunction
PrivateSubCommand1_Click（）
Dimi%
p1=IsP（3）'第一个可能的素数
Fori=
p2=IsP（i）
IfThenPrinti2,i'相邻的两个是素数，则打印
p1='处理下一个素数
Nexti
EndSub
8.本程序的功能是求100以内的素数，结果分三列输出，如样例所示。
算法思想：
从2开始，对每一个数判断是否是素数，若是就输出，否则就继续，直至到100。
PrivateSubCommand1_Click（）
DimnAsInteger,mAsInteger,iAsInteger
Me.Cls
Forn=2To100
Form=2Ton–1
If=0Then
EndIf
Nextm
IfThen
Printn,
i=i+1
IfiMod3=0Then
EndIf
Nextn
EndSub
9.子过程isH的功能是判断正整数n是否是回文数，若为回文数，则参数Tag返回True。
单击命令按钮，输出随机产生的10个[10，100]之间的回文数（数字左右对称的正整数称为回文数）。
PrivateSubCommand1_Click（）
Dimnn%,tAsBoolean,i%
Fori=1To10
nn=Int（Rnd*991+10）
Call
IftThenPrintnn;"是回文数"
Nexti
EndSub
SubisH（ByValnAsInteger,）
Dimlength%,i%,s1$
s1=Trim（Str（n））
tag=
length=
Fori=1Tolength\2
IfMid（s1,i,1）<>Thentag=False
Nexti
EndSub
10.本程序的功能是判断一个5位数的最后二位构成的数是否为素数。
在窗体的文本框Text1中输入一个5位数，判断该数的第4、5二位构成的数是否为素数，若是显示“是素数”否则为“非素数”。
例如，32517最后二17构成的数是素数。
PrivateSubCommand1_Click（）
DimtagAsBoolean
m=
m=Val（m）
Fori=2To
If=0Thentag=False
Nexti
IfThen
Printm;"是素数"
Else
Printm;"非素数"
EndIf
EndSub
11.随机产生100个在闭区间[30，80]之间的整数，存放于数组a中；并将其中大于50的偶数再存于数组b中；然后，对数组b用冒泡法从大到小排序后输出。
子过程Output的功能是按每行十个元素输出数组内容。
PrivateSubForm_Click（）
Dima（1To100）AsInteger,b（100）AsInteger,mAsInteger,nAsInteger
Randomize
n=0
Fori=1To100
a（i）=Int（Rnd*51+30）
Ifa（i）Mod2=0Then
n=n+1
b（n）=
EndIf
Nexti
CallOutput（a（）,100）
Fori=1To
Forj=1Ton-i
IfThen
t=b（j）:
b（j）=b（j+1）:
b（j+1）=t
EndIf
Nextj
Nexti
Call
EndSub
PrivateSubOutput（x（）AsInteger,tAsInteger）
Print"数组输出：
"
Fori=1Tot
Printx（i）;
IfiMod10=0ThenPrint
Nexti
Print
EndSub
12.本程序的功能是用于判断输入的正整数是否为升序数。
使用输入对话框输入数据，判断结果显示在标签框Lable1中。
设正整数n=d1d2…dm，如果di<=di+1（i=1,2,…,m-1）,则n是一个升序数（即右边的数字大于等于左边的数字），如：
1269，448是升序数，而2485不是升序数。
PrivateSubForm_Click（）
DimnAsString,flagAsBoolean
n=（“请输入正整数”）
flag=
ForI=1ToLen（n）–1
IfMid（n,I,1）>Then
flag=False
EndIf
Nexti
IfThen
Label1.Caption=n&“是升序数”
Else
Label1.Caption=n&“不是升序数”
EndIf
EndSub
13.下列程序将给定范围内的偶数（大于等于4），表示为两个素数之和。
图例所示为输入10和30后运行结果。
函数子过程fun（）的功能是判断数值n是否是为素数，若是返回1，否则返回0。
PrivateSubCommand1_Click（）
Dima%,b%,i%,c%,d%
a=Val（Text1.Text）:
b=Val（Text2.Text）
IfThen
t=a:
a=b:
b=t
EndIf
Fori=aTobStep2
Do
c=c+2
d=i-c
LoopUntil=1
Picture1.Printi;"=";c;"+";d
Nexti
EndSub
Functionfun（nAsInteger）
Dimx!
k%
Fork=2Ton-1
IfnModk=0Then
fun=0
EndIf
Nextk
EndFunction
14.下面程序的功能是统计文本框中每个数字字符（“0”-“9”）出现的次数。
用num（0）来存放字符“0”的个数，用num
（1）来存放字符“1”的个数，…，用num（9）来存放字符“9”的个数。
字符串由用户在文本框中输入，结果在图形框中输出。
PrivateSubCommand1_Click（）
Dimnum（9）AsInteger
Dimi%,m%,j%,cAsString*1,s$
m=
Fori=1Tom
c=Mid（Text1.Text,i,1）
IfThen
j=Val（c）
EndIf
Nexti
Fori=0To9
IfThen
Picture1.Print"数字";;"出现次数为";num（i）
EndIf
Nexti
EndSub
15.下列程序将求出10000之内的同构数。
并且在窗体标题栏上显示找到同构数的个数，如图所示。
所谓同构数是指，该整数会出现在其平方数的最右端。
例如：
6出现在36的最右端，76出现在5776的最右端。
子函数judge（）的功能是判定同构数，若是judge返回True，否则返回False。
判定同构数算法思想：
将数n逐位与n的平方数相同位置上的值相比较。
PrivateSubCommand1_Click（）
DimiAsLong
m=0
Fori=1To10000
IfThen
m=m+1
List1.AddItemStr（i）
List2.AddItemStr（i*i）
EndIf
Nexti
="10000以内的同构数：
"&m&"个"
EndSub
PrivateFunctionjudge（ByValnAsLong）AsBoolean
Dimn2AsLong
n2=n*n
judge=True
DoWhile
If（nMod10）=Then
n=n\10
n2=n2\10
Else
ExitDo
EndIf
Loop
EndFunction
16.下列程序中的子过程fenge用于实现函数split（）的功能（字符分离到数组）。
通过在文本框中输入一个以逗号分隔的数字序列，按回车后调用过程fenge，将数字序列分离后，——转换为数值型数据存放于数组shuzhi（）中，并在Picturebox中输出该数组的所有值（假设不存在输入错误，输入的数字元素个数在100个以内）。
PrivateSubText1_KeyPress（KeyAsciiAsInteger）
IfKeyAscii=13Then
Callfenge（）
EndIf
EndSub
PrivateSubfenge（str1）
DimiAsInteger,jAsInteger,shuzhi（100）AsSingle
i=0
j=InStr（str1,","）‘检测第一个逗号的位置
DoWhilej>0
shuzhi（i）=Val（）‘分离数字序列
str1=Mid（）
i=i+1
j=InStr（str1,","）
Loop
‘最后一个数字
Forj=0Toi
Nextj
EndSub
17.
下列程序完成如下功能：
在文本框中输入一个20以内的正整数N，单击“开始”按钮后，判断输入的有效性，如果文本框中输入数越界，给出如图所示的相关提示，并要求重新输入，否则随机产生一个大写英文字母，然后以此英文字母为首字母，连续循环变化，输出一个N*N的字符矩阵，并显示“首字母X的N阶字符矩阵”的说明，图示为首字母K的8阶字符矩阵。
PrivateSubCommand1_Click（）
Dimi%,k%,n%
n=Val（Text1）
Ifn<1Orn>20Then
Text1=""
Text1.SetFocus
ExitSub
EndIf
s=Int（Rnd*26）+65‘随机产生一个大写字母的Ascii码
Label1="首字母"&"的"&n&"阶字符矩阵"
Cls
Print:
Print
k=‘以下输出N*N的字符矩阵，K为字符控制变量
Fori=1Ton
PrintTab（5）;
Forj=
PrintChr（65+k）;Space
（1）;
k=k+1
If‘对字符控制变量进行处理
Nextj
Print
Nexti
EndSub
18.
将100至150之间的偶数，拆分成两个素数之和（只要一对就可以了），最后输出格式如图所示。
函数子过程prime用于判断一个数是否为素数。
PrivateFunctionprime（ByValxAsInteger）AsBoolean
DimiAsInteger
prime=
Fori=2ToSqr（x）
IfThen
prime=False
ExitFunction
EndIf
Nexti
EndFunction
PrivateSubForm_Click（）
DimiAsInteger,kAsInteger,nAsInteger
Cls
i=1
Forn=
Fork=3Ton/2
Ifprime（k）AndThen
Printi;":
";n;"=";k;"+";n-k
ExitFor
EndIf
Nextk
Nextn
EndSub
19.
下列程序完成如下功能：
在文本框中输入英语句子，每个单词后加一个空格，当按下回车键（回车的Ascii码为13）后结束输入，并将文本框中的内容分离成单词按字典排列方式显示在列表框List1中。
要求列表框中存放的单词不重复出现。
算法思想：
用一个变量存放输入的英语句子，通过查找空格位置分离出左边的一个单词，再在列表框中检查该单词是否存在，若不存在，按字典排列方式插入到列表框中；然后截去英语句子中第一个单词后，重复上上述过程。
例如，变量st的值为“Itisabook”，分离出第一个单词“it”存放在变量word内，根据要求加入到列表框中；再使st的值为“isabook”，重复相同处理过程。
PrivateSubText1_KeyPress（KeyAsciiAsInteger）
Dimst$,word$,i%,inspc%
IfThen
st=Trim（Text1）&""
inspc=InStr（st,""）
DoWhileinspc>0
word=
Fori=0ToList1.ListCount-1
Ifword=List1.List（i）Then
Exit
升级会员 