国开(山东)00035《VisualBasic程序设计》期末综合练习(程序阅读分析题)复习资料答案

VisualBasic程序设计-期末综合练习（程序阅读分析题）作业资料答案说明：每学期的课程题目都可能更换，请认真核对是您需要的题目后再下载！【题目】privatesubdimxasintegerstaticyasintegerx=x+2y=x+yform1.print"x=";x,"y=";yendsub（。x=2 y=2x=2 y=4x=2 y=6x=6 y=6[请认真阅读以上题目，运用所学知识完成作答]参考答案：x=2 y=6【题目】privatesubcommand1_click()dimxasintegerstaticsasintegerx=val(inputbox("请输入一个正整数="))ifx<5thens=s*xelses=s+xendiftext1.text="s="&str(s)endsub程序运行后，连续3次单击command按纽，且设输入的数据为54、3时，文本框text1显示的值为（ 。122060s=60[请认真阅读以上题目，运用所学知识完成作答]参考答案：s=60【题目】privatesubcommand1_click()staticxasintegerstaticyasintegerclsy=1y=y+5x=5+xprintx,endsub程序运行后，单击命令按钮command1三次后，窗体上显示的结果为（ 。A.1516B.156C.1515D.56[请认真阅读以上题目，运用所学知识完成作答]参考答案：156【题目】privatesubcommand1_click()n=text1.textselectcasencase1to20x=10case2,4,6x=20caseis<x=30case10x=40endselecttext2.text=endsub程序运行后，如果在文本框text110，然后单击命令按钮，则在text2是（。10203040[请认真阅读以上题目，运用所学知识完成作答]参考答案：10【题目】privatesubcommand1_click()staticyasintegerclsfori=0to2x=x+yy=y+3nextiprintx,yendsub程序运行后，连续二次单击command1（。A.99B.3012C.3618D.6327[请认真阅读以上题目，运用所学知识完成作答]参考答案：3618【题目】privatesubcommand1_click()dimsasdoubledimiass=5i=1dowhilei<6i=i+2s=s+ilooptext1.text=sendsub程序运行后，单击命令按钮，在文件框text1（。13201118[请认真阅读以上题目，运用所学知识完成作答]参考答案：20【题目】privatesubcommand1_click()x=0dowhilex<60x=(x+2)*(x+3)n=n+1looptext1.text=text2.text=text3.text=val(text1.text)+val(text2.text)endsub程序运行后，单击命令按钮在文件框text3（。7274716[请认真阅读以上题目，运用所学知识完成作答]参考答案：74【题目】privatesubcommand1_click()staticsumasintegerdimiasintegeri=1dosum=sum+ii=i+1loopwhilei<=5text1.text=sumtext2.text=iendsub程序运行后，两次单击command1text1.text2（。A.105B.156C.255D.306[请认真阅读以上题目，运用所学知识完成作答]参考答案：306【题目】privatesubcommand1_click()staticxasintegerclsfori=1to2y=y+xx=x+nextiprintx,yendsub程序运行后，连续三次单击command1（。A.42B.1218C.1230D.46[请认真阅读以上题目，运用所学知识完成作答]参考答案：1218【题目】privatesubcommand1_click()n=0j=1dountiln>2n=n+1j=j+n*(n+1)loopprintn;jendsub程序运行后，单击命令按钮，在窗体上显示的值是（。A.01B.37C.321D.313[请认真阅读以上题目，运用所学知识完成作答]参考答案7【题目】privatesubcommand1_click()p=0s=0dop=p+2s=s+ploopwhilep<11print"s=";sendsub程序运行后，单击命令按钮，在窗体上显示的值是（。S=42S=30S=46S=20[请认真阅读以上题目，运用所学知识完成作答]参考答案：S=42【题目】privatesubcommand1_click()x=0dowhilex<50x=(x+2)*(x+3)n=n+1looptext1.text=text2.text=endsub程序运行后，单击command1（。A.1 0B.2 72C.3 50D.4 168[请认真阅读以上题目，运用所学知识完成作答]参考答案72【题目】privatesubcommand1_click()x=1:n=0dowhilex<x=x*10n=n+1looptext1.text=text2.text=endsub程序运行后，单击命令按钮，在两个文本框中显示的值分别为（。A.10 0B.2 100C.3 50D.4 168[请认真阅读以上题目，运用所学知识完成作答]参考答案100【题目】privatesubfori=1to10stepy=y+nextiprintiendsub程序运行后，单击窗体，在窗体上显示的值是（。2510119[请认真阅读以上题目，运用所学知识完成作答]参考答案：11【题目】privatesubform_click()i=0forg=10to19step3i=i+1nextgprintiendsub程序运行后，单击窗体，在窗体上显示的值是（。4536[请认真阅读以上题目，运用所学知识完成作答]参考答案：4【题目】privatesubform_click()dimcasinteger,jasinteger,kasintegerk=1c=2forj=1to5ifj>3c=c+5exitforelsek=k+endifnextjprintc,kendsub程序运行后，单击窗体，在窗体上显示的c,k（。A.73B.74C.24D.75[请认真阅读以上题目，运用所学知识完成作答]参考答案4【题目】privatesubform_click()dimiasinteger,jasintegerdimcasintegerc=0fori=1to3forj=1to2c=c+3nextjnextiprintcendsub程序运行后，单击窗体，在窗体上显示的结果是（。1815129[请认真阅读以上题目，运用所学知识完成作答]参考答案：18【题目】privatesubform_click()dimiasinteger,kasinteger,casintegerfori=1to5ifimod2=0thenk=k+2elsec=c+3endifnextiprintk,cendsub（。A.212B.49C.46D.29[请认真阅读以上题目，运用所学知识完成作答]参考答案9【题目】privatesubcommand1_click()dimiasinteger,nasintegerfori=0to50i=i+3n=n+1ifi>10thenexitfornextitext1.text=str(n)endsub程序运行后，单击命令按钮，在文本框中显示的值是（。2345[请认真阅读以上题目，运用所学知识完成作答]参考答案：3【题目】privatesubform_click()dimiasinteger,kasinteger,casintegerfori=1to10ifimod2=0thenk=k+3elsec=c+4endifnextiprintk,cendsub程序运行后，单击窗体，在窗体上显示的值是（。A.1020B.2015C.1520D.1030[请认真阅读以上题目，运用所学知识完成作答]参考答案20【题目】privatesubform_click()dimcasinteger,jasinteger,kasintegerk=1c=2forj=1to5ifj>3thenc=c+6exitforelsek=k+3endifnextjprintc,kendsub程序运行后，单击窗体，在窗体上显示的值是（。A.10 8B.8 10C.8 7D.8 4[请认真阅读以上题目，运用所学知识完成作答]参考答案10【题目】privatesubform_click()dimiasinteger,kasintegerstaticcasintegerfori=1to6ifimod2=0thenk=k+2elsec=c+3endifnextiprintk,cendsub程序运行后，连续两次单击窗体，在窗体上显示的值是（。A.612B.624C.69D.618[请认真阅读以上题目，运用所学知识完成作答]参考答案18【题目】privatesubform_click()b=1dowhileb<40b=b*(b+loopprintbendsub程序运行后，单击窗体，在窗体上显示的值为（。423961[请认真阅读以上题目，运用所学知识完成作答]参考答案：42【题目】privatesubform_click()dima(1to3)asstringdimcasintegerdimjasa(1)="3"a(2)="6"a(3)="9"c=1forj=1to3c=c+val(a(j))nextjprintcendsub程序运行后，单击窗体，在窗体上显示的值是（。10191617[请认真阅读以上题目，运用所学知识完成作答]参考答案：19【题目】privatesubcommand1_click()dima(1to5)asintegerdimxasintegerfori=1to5a(i)=inextii=1dowhilex<6a(i)=a(i)+xx=x+2i=i+2looptext1.text=text2.text=endsub程序运行后，单击命令按钮，在两个文本框中显示的值是（。5 95 49 54 5[请认真阅读以上题目，运用所学知识完成作答]参考答案9【题目】privatesubcommand1_click()dima(1to5)asintegerdimxasintegerfori=1to5a(i)=inextii=1dowhilex<2a(i)=a(i)*xx=x+1i=i+1looptext1.text=text2.text=endsub程序运行后，单击command1text1、text2（。A.20B.02C.24D.25[请认真阅读以上题目，运用所学知识完成作答]参考答案2【题目】privatesubcommand1_click()dimm(5)fori=1tom(i)=i*nextiprintm(i-1)endsub程序运行后，单击命令按钮，在窗体上显示的值是（。5250516[请认真阅读以上题目，运用所学知识完成作答]参考答案：25【题目】subchange(xasinteger,yasinteger)dimtasintegert=x=y=printx,endsubprivatesubform_click()dimaasinteger,basintegera=30:b=40changea,bprinta,bendsub程序运行后，单击窗体，在窗体上显示的值是（。A.30403040B.30404030C.40304030D.40303040[请认真阅读以上题目，运用所学知识完成作答]参考答案3040 30【题目】subtest(iasinteger)i=i+4endsubprivatesubform_click()dimxasintegerx=5print"x=";calltest(x)print"x=";endsub（。x=5x=9x=9x=5x=x=995[请认真阅读以上题目，运用所学知识完成作答]参考答案：x=5x=9【题目】functionf(aasinteger)dimbasintegerstaticcasintegerb=b+2c=c+3f=a+b+cendfunctionprivatesubcommand1_click()dimaasintegera=4fori=1to3printf(a);nextiendsub（。A.999B.9