1.[0,200]之间能被3整除的整数之和为：6633
Dimd,iAsInteger
Fori=0To200
IfiMod3=0Then
d=di
EndIf
Nexti
fun=d
2.当输入的字符串为：“ABCDEFGH”时，则Text2中输出的字符串应为：“BDFH”。
fori=2ton---------------fori=2tonstep2
Text2.Text=Text2.Text---------------Text2.Text=s
3.当a=45，b=42.调用该函数后，c=4152.
Dimf1,f2,f3,f4AsInteger
f1=Int(a/10)
f2=aMod10
f3=Int(b/10)
f4=bMod10
fun=f1Mat(i,j);
sum=sumMat(i,j)-----------------sum=sumMat(3,j)
6.在屏幕上输出一个n行的乘法表
callsub1--------------------callsub1(n)
Forj=1ton-------------------Forj=1toi
7.在窗体上输出斐波那契数列的钱20项项值
printf1,------------------printf1,f2
endfor---------------------nexti
8.单击“出题”按钮，在文本框Text1中输出20个随机正实数
sum1=sum1A(I)---------------------sum1=sum1Int(A(I))
sum2=Text3.Text---------------------Text3.Text=sum2
9.输出一个数字组成的金字塔
——（1）——-----------------Printj
Forj=____(2)____--------------------Forj=iTo1step-1
10.求两个正整数a,b的最大公约数
IfabThen
i=a
Else:i=b
EndIf
Fort=iTo1Step-1
IfaModt=oAndbModt=oThen
fun=t
ExitFor
EndIf
Nextt
11.秒表倒计时器，起始时间为100秒。
__(1)___------------timer1.enabled=false
label2.caption=__(2)__-------------label2.caption-1
12.输入整数N，产生N*N个两位的随机正整数存入二维数组的X中
Dimx(1ToN,1ToN)AsInteger
Fori=1ToN
s=sx(i,i)
Nexti
fun=s
13.在程序运行时，如果“单击”计算按钮，按下面公式求s的值，并把结果存入文件变量s中并输出到窗体上。
DimnAsDouble
n=100000
s=1
Fori=2Ton
s=s1/(i*i)
Nexti
14.单击滚动条左边的滚动箭头，使红色圆向左移动20缇;单击滚动条右边的滚动箭头，使红色圆向右移动20缇。
shape1.left=___(1)____---------------shape1.left-20
shape1.left=___(2)____---------------shape1.left20
15.单击计算按钮，统计Text1中大写字母的个数并在Text2中显示。
DimaAsString,iAsInteger,dAsInteger
Fori=1ToLen(Text1.Text)
a=Mid(Text1.Text,i,1)
Ifa=UCase(a)Then
d=d1
EndIf
Nexti
fun=d
16.程序的功能是：实现密码登陆验证。
__(1)__-----------------Statici
__(2)__-----------------endif
17.如果单击“输出”按钮，输出[100,200]之间的所有素数并统计素数的个数。
ifimodj=othenflag=1----------------ifimodj=othenflag=0
ifkmod5=0thenprint-------------------ifkmod5=0thenpicture1.print
18.单击“查找”按钮，在数组中查找n第一次出现的位置，如果数组中存在整数n，在Text3中显示n第一次出现的位置
Fori=1To10
Ifn=a(i)Then
fun=i
ExitFor
EndIf
Nexti
19.单击“添加”按钮，将所有所选项目添加到列表框List2中并同时从List1中删除（每次一门课程）
List2.AddItem__(1)__------------------List1.List(List1.ListIndex)
List2.RemoveItem__(2)__-------------------List2.ListIndex
20.其中判断一个三位数是否为水仙花数的操作在子过程Fun中实现，请编写该过程代码。
Dima,b,cAsInteger
a=iMod10
b=Int(i/10)Mod10
c=Int(i/100)Mod10
Ifi=(a^3b^3c^3)Then
picture1.Printi
EndIf
21.单击窗体，在窗体上输出一个9行的菱形
Fori=1to__(1)__-------------------Fori=1to4
__(2)__-----------------------print
22.单击“计算”按钮，在文本框中显示1！2！3！......20！的值
s=o------------------s=1
Forj=1to20-------------------Forj=1toi |
