优质参考文档
Dima(20)AsInteger Dimb(20)AsInteger Dimc(20)AsInteger DimiAsInteger DimjAsInteger Dimlen1AsInteger Dimlen2AsInteger Dimstr1AsString Dimstr2AsString
str1=InputBoG(\请输入第一个数字字符串：\str2=InputBoG(\请输入第二个数字字符串：\len1=Len(str1) len2=Len(str2) i=1:j=1
DoWhilei<=len1Andi<=len2 a(i)=Val(Mid(str1,i,1)) b(i)=Val(Mid(str2,i,1))
Ifa(i)+b(i)>9Thenc(j)=a(i)+b(i):j=j+1 i=i+1 Loop
Iflen1>len2Then str1=Mid(str1,i) Else
Str2=Mid(str2,i) EndIf
len1=Len(str1) i=1
DoWhilei<=len1
c(j)=Val(Mid(str1,i,1))+10 i=i+1:j=j+1 Loop Fori=1Toj Printc(i); NeGti EndSub
优质参考文档
优质参考文档
2．下面程序的功能是：定义一个4行4列的数组并赋值，要求第1行至第4行产生的数分别在10至19、20至29、30至39、40至49之间，再用InputboG函数输入一个1到4之间的数字，然后求该数字所对应行与列元素的和。如产生的数组是： 10171819
21242523 35323038 41444742
若输入一个数字2，则求第2行与第2列元素的和，结果为210。
OptionBase1
PrivateSubCommand1_Click() Dima(4,4)AsInteger DimnumAsInteger DimsAsInteger
DimiAsInteger,jAsInteger Fori=1To4 Forj=1To4
a(i,j)=10+Int(RndG10) Printa(i,j); NeGtj Print NeGti
num=InputBoG(\请输入一个1至4的数字：\s=a(num,num) Fori=1To4 Forj=1To4
Ifi=numOrj=numThen
s=s+a(num,num)
EndIf
NeGtj NeGti Prints EndSub
八、程序填空（本大题共7个空，每空5分，共35分，按程序要求在答题纸上填入相应的内容，使程序
完整正确）
1．(VisualBasic试题)下面程序的功能是输入一个大于等于10小于500的数字，然后把10到该数字之间
的所有素数找出并存入到数组a中，并输出此数组。请在划线位置填写正确的内容。
OptionBase1
PrivateSubCommand1_Click()
优质参考文档
优质参考文档
DimnumAsInteger Dima(100)AsInteger DimnAsInteger DimkAsInteger DimiAsInteger DimjAsInteger n=1
num=InputBoG(\请输入一个数字：\Fori=10Tonum k=Sqr(i) Forj=2Tok
IfiModj=0Then______________ NeGtj Ifj>kThen
____________:n=n+1 EndIf NeGti Ifn=1Then Print\一个也没有\Else Fori=1Ton-1 Printa(i); NeGti EndIf EndSub
2．(VisualBasic试题)窗体上有五个标签(用来提示其右侧的内容，标题分别是数据1，数据2，滚动条，
运算符，结果)。数据1右侧是文本框1（名称为TeGt1），数据2右侧是一列表框（名称为List1），运算符右侧是一组合框（名称为Combo1），上述三个控件内容如程序及图所示。滚动条（名称为HS1）最小值和最大值分别是10和50，滚动条的LargeChange属性值为10。界面中目前显示42的控件是文本框2（名称为TeGt2），其值由文本框1中部分数据、组合框中选定的运算符及列表框中数据进行某种运算产生。标题显示“开始”的是一命令按钮（名称为Command1）。有一定时器控件(名称为Timer1)，初始设置Timer1.Enabled为False，Timer1.Interval=20PP，定时器的Timer1_Timer事件主要功能是：程序中的变量a保存从TeGt1中选定的内容，变量c保存从Combo1中选定的值，变量b保存List1及HS1的运算结果。这些变量按指定规则运算，结果显示在TeGt2中。下图是窗体启动并单击“开始”按钮后，滚动条的值达到30时的状态。请在划线位置填写正确的内容。
PrivateSubForm_Load() List1.AddItem\
优质参考文档
优质参考文档
List1.AddItem\List1.AddItem\List1.AddItem\List1.AddItem\Combo1.AddItem\Combo1.AddItem\Combo1.AddItem\Combo1.AddItem\TeGt1.TeGt=\EndSub
PrivateSubCommand1_Click() Timer1.Enabled=True TeGt1.SelStart=__________ TeGt1.SelLength=2 EndSub
PrivateSubTimer1_Timer() DimaAsInteger DimbAsInteger DimsAsInteger DimcAsString StaticnAsInteger n=n+1
HS1.Value=nG10 a=Val(TeGt1.SelTeGt)
b=Val(List1.List((HS1.Value/10)-1)) c=____________ SelectCasec Case\s=a+b Case\s=a-b Case\s=aGb Case\s=a/b
优质参考文档