东北大学20年3月补考《可视化程序设计（VB）》考核作业线上（B卷）

网院作业

东北大学继续教育学院
可视化程序设计(VB)试卷（作业考核线上2）B卷（共6页）
东北大学
答案咨询微信或QQ 515224986

总分题号一二三四五六七八九十
得分
一、简答题（每小题5分，共50分）
1、简述子过程和函数过程的共同点和不同之处。
答：
2、简述自定义类型和自定义变量的区别。
答：
3、简述标签和文本框的区别。
答：
4、简述列表框和组合框的异同处。    东北大学
答案咨询微信或QQ 515224986
答：
5、分析下面程序的执行过程，给出运行结果。
PrivateSubCommand2_Click()
Dimx%y%z%
x=242y=44
z=x*y
DoUntilx=y
Ifx&gtyThenx=x–yElsey=y–x
Loop
Printxz/x
EndSub
答：
6、分析下面程序的执行过程，给出运行结果。
PrivateSubCommand1_Click()
a=10
t=“旅游景点：”_
&ampIIf(a&gt3“长城”“”)_
&ampIIf(a&lt8“故宫”“”)_
&ampIIf(a&lt8“颐和园宫”“”)
Text1.Text=t
EndSub
答：
7、下面程序的功能是产生20个[10100]之间的随机整数，每行输出10个数，根据题意，完善程序。
PrivateSubcommand1_Click()
Dima(1To20)AsInteger
Randomize
i=0
DoWhilei&lt20
i=i+1
a(i)=（1）
If((2))Then
Printa(i)
EndIf
Ifi=10ThenPrinta(i)
Ifi&gt10Thenprinta(i)
Loop
EndSub
答：
8、分析下面程序的执行过程，给出运行结果。
PrivateSubCommand1_Click()
Dimx$n%
n=20
DoWhilen&lt&gt0
a=nMod2
n=n\2
x=Chr(48+a)&ampx
Loop
Printx
EndSub
答：
9、分析下面程序的执行过程，给出运行结果。
PrivateSubcommand1_click()
x=InputBox(“请输入一个整数”)
flag=1
Fori=2To(1)
IfxModi=0Then
flag=0
Endif
Nexti
If((2))ThenPrintx“素数”ElsePrintx“非素数”
EndSub
答：
10、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
OptionBase1
PrivateSubCommand1_Click()
Dima(10)AsInteger
Fori=1To10
a(i)=i
Next
Callswap（（1））
Fori=1To10
Printa(i)
Next
EndSub
Subswap(b()AsInteger)
n=（2）
Fori=1Ton/2
t=b(i)
b(i)=b(n)
b(n)=t
（3）
Next
EndSub
上述程序的功能是：通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。试分析给出的程序代码，完成相应的语句。
答：
二、编程题（第12题10分、第34题15分，共50分）
1、编写程序，由键盘输入10个数，求出其中的最大数。
答：
2、编写程序，其功能为输出1+2+……+100的和，并求出1100之间能被17整除的数的个数。
答：
3、编写程序，给出一个百分制的成绩，要求输出成绩的相应等级。
答：
4、编写程序，输入一个年份，判断该年是否为闰年。
答：

东北大学
奥鹏答案咨询微信或QQ 515224986