优质参考文档

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

优质参考文档