n=n+1 Else
If ch >=\ Label1.caption= ucase(ch) n=n+1 Else
Label1.caption= ch End if
Label2.caption= len(ch) End sub
2、输入两个数，找出其中较大的数输出. Option explicit
------------------------------------------------------------------------------------------------------------ Private sub command-click()
Dim a as integer,b as integer,max as integer a =text1.text b=text2.text
If a>b then Max=a Else
Max=b End if
Text3.text=str(max) End sub
--------------------------------------------------------------------------------------------------------- Private sub command2-click() Text1.text=\ Text2.text=\ Text3.text=\End sub
-------------------------------------------------------------------------------------------------------- Private sub command3-click() Unload me End sub
3、编写程序，输入学生的百分制成绩，将百分制成绩转换为学分制成绩，并输出结果。 Option explicit
-------------------------------------------------------------------------------------------------------- Private sub command1-click() Dim s as string S=text1.text
Select case s\\10 Case 9,10 Text2.text=\优\Case 8
Text2.text=\良\Case 7
Text2.text=\中\Case 6
Text2.text=\及格\Case Is >0,Is<6 Text2.text=\差\ End select End sub 【实验七】 单项选择 1、dim ss as string
Private sub command1-click() Dim m as string,i as integer For i = len(ss) to 1 step -1 m=m+mid(ss,i,1) Next
Text1.text=ucase(m) End sub
Private sub text1-keypress(keyascii as integer) If chr(keyascii)<>\End sub
程序运行后，在文本框中输入“number 100”，并单击命令按钮，则文本框中显示的是（ C ）
A.REBMUN B.NUMBER 100 C.001 REBMUN D.REBMUN 100
2、为计算1+2+2^2+2^3+................+2^10的值，并把结果显示在文本框text1中，若编写如下事件过程： Private sub command1-click() Dim a$ , s$ , k$ S=1 A=2 For k=2 to 10 a =a*2 S=s+a Next k Text1.text=s End sub
若执行事件过程发现结果是错误的，为能够得到正确结果，应作的修改是（ A ） A.把for k=2 to 10改为 for k=1 to 10，交换语句s=s+a和a=a*2的顺序 B.把for k=2 to 10改为for k=1 to 10 C.交换语句s=s+a和a=a*2的顺序 D. 填空题、
1、窗体如图所示。要求程序运行后，在文本框text1中输入一个姓氏，单击删除按钮（名称为command1），则可删除列表框list1中所有该姓氏的项目。若编写一下程序来实现此功能： Private sub command1-click() Dim n%,k% N=len(text1.text)
For k = 0 to list1.listcount-1 If left(list1.list(k),n)=text1.text then List1.removeitem k End if Next k End sub
在调试时发现，如输入陈，可以正确删除所有姓陈的项目，但输入刘，则只删除了刘邦、刘备两项。这说明程序不能适应所有情况，需要修改，正确的修改方法是把For k = 0 to list1.listcount-1改为 for k=list1.listcount-1 to 0 step - 1
2、在窗体上画一个名称为text1的文本框和一个名称为command1的命令按钮，然后编写如下事件过程：private sub command1-click() Dim i as integer,n as integer For i = 0 to 50 I=i+3 N=n+1
If i>10 then exit for Next
Text1.text=str(n) End sub
程序运行后，单击命令按钮，在文本框中显示的值是 3 。 程序填空
1、我国现有人口13亿，按人口年增长率0.8%计算，完善程序求出多少年后我国人口将会超过26亿. Private sub command1-click() Dim p as single,t as integer P=13 Do
P= p*1.008 T= t+1
Loop while p<=26 Print t & \年\ End sub
2、如图所示，输入一串字母，按规则进行加密：将每个源码字母在A--Z--A首尾相连的字母表上向后移6位为译码。加密规则见表 原码 译码
Option explicit
------------------------------------------------------------------------------------------------------------ Private sub command1-click()
A G B H C I ............. ............ X D Y E Z F Dim str1 as string ,str2 as string
Dim n as integer,ch as string*1,i as integer Str1=ucase(trim(text1.text)) For i=1 to len(str1) Ch=( mid(str1,i,1) ) n=asc(ch)+6 If n <+90 then
Str2=str2+ chr(n) Else
Str2=str2+chr(asc(ch)+6-26) End if Next i
Text2.text= str2 End sub
3、综合累加算法，求1！+2！+3！+.......................+n！。请完善程序代码 Private sub command2-click()
Dim i as integer ,j as integer,n as integer Dim t as long,s as long n=val(text1.text) For i = 1 to n T=1 For j = 1 to i
T= t*j Next j
S= s=t Next i Print s End sub
4、在文本框中输入一串字符，统计其中的字母、数字和其他字符的个数。请完善程序。 Private sub command1-click()
Dim s as string,i as integer,n1 as integer,n2 as integer S=text1.text
For i = 1 to len(s)
If ucase(mid(s,i,1))>=\ \ n1=n1+1
Elseif mid(s,i,1)=\ mid(s,i,1)<=\ then n2=n2+1 Else n3=n3+1 End if Next i
Text2.text=\字母\数字:\其他：\End sub
5、完善程序代码，要求能够筛选出100以内的素数，并在窗体上输出。 Private sub command1-click() Dim i as integer,x as integer For x =2 to 100 For i = 2 to x-1
If x mod i= 0 then Exit for Next i
If i=x then print x Next x End sub
6、完善代码程序，要求实现从文本框输入一个正整数，单击按钮即可判断该数是否为素数。 Private sub command1-click() Dim in as integer , x as integer X=text1.text For i =2 to x - 1
If x mod i =0 then exit for Next i
If x=i then Msgbox x& \是素数\Else
Msgbox x&\不是素数\End if End sub
【实验八】 单项选择
1、在窗体上画一个名称为command1的命令按钮，并编写如下事件过程： Private sub command1-click() X=1 S=0 For i=1to 5 X=x/i S=s+x Print s End sub
该事件过程的功能是计算（A） A.S=1+1/2!+1/3!+1/3!+1/4!+1/5! B.S=1+2+3+4+5 C.S=1+1/2+1/3+1/4+1/5
D.S=1+1/(1*2)+1/(2*3)+1/(3*4)+1/(4*5)
2、在窗体上画一个命令按钮，然后编写如下事件过程 Private sub command1-click() a$=inputbox(\请输入一个二进制数\