求VB数值和与积创建一个工程：第一题：设计一个求1~10这十个数的和与积的程序.第二题：设计一个从由字母、数字组成的字符串中找出所有大写字母并逆序输出的程序.

Question

求VB 数值和与积
创建一个工程：
第一题：设计一个求1~10这十个数的和与积的程序.
第二题：设计一个从由字母、数字组成的字符串中找出所有大写字母并逆序输出的程序.

Answer 1

第一题：
Private Sub Form_Load()
dim i,s as integer
dim j as long
i=1
s=0
j=1
do
s=s+i
j=j*i
i=i+1
loop until i>10
msgbox "1~10这十个数和为"+str(s)+" 积为"+str(j)
End Sub
第二题：
Private Sub Form_Load()
dim s,result as string
dim i as integer
i=1
s=inputbox ("请输入你要查找的字符串")
do
if ucase(mid(s,i,1))=mid(s,i,1) and not isnumeric(mid(s,i,1)) then result=mid(s,i,1)+result
i=i+1
loop until i>=len(s)
msgbox result
End Sub