东北大学20年3月补考《可视化程序设计(VB)》考核作业【答案】

作者:奥鹏周老师 分类: 东北大学 发布时间: 2020-03-10 20:17
奥鹏作业答案 联系QQ:3326650399 微信:cs80188
东 北 大 学 继 续 教 育 学 院
可视化程序设计(VB) 试 卷(作业考核 线上2)B卷(共 6 页)
总分 题号 一 二 三 四 五 六 七 八 九 十
得分

一、简答题(每小题5分,共50分)
1、简述子过程和函数过程的一起点和不一样之处。
答:





2、简述自界说类型和自界说变量的差异。
答:





3、简述标签和文本框的差异。
答:






4、简述列表框和组合框的异共处。
答:







5、剖析下面程序的履行过程,给出运转成果。
PrivateSubCommand2_Click()
Dim x%, y%, z%
x = 242; y = 44
z = x * y
DoUntilx = y
Ifx> y Then x = x – yElse y = y – x
Loop
Print x, z / x
EndSub
答:









6、剖析下面程序的履行过程,给出运转成果。
Private Sub Command1_Click()
a = 10
t = “旅行景点:”_
&IIf(a>3, “长城”, “”)_
&IIf(a<8, “故宫”, “”)_
&IIf(a<8, “颐和园宫”, “”)
Text1.Text = t
End Sub
答:







7、下面程序的功用是发生20个[10, 100]之间的随机整数,每行输出10个数,依据题意,完善程序。
Private Sub command1_Click()
Dim a(1 To 20) As Integer
Randomize
i = 0
Do While i < 20
i = i +1
a(i) = (1)
If ( (2) ) Then
Print a(i)
End If
If i = 10 Then Print a(i)
If i > 10 Then print a(i)
Loop
End Sub
答:









8、剖析下面程序的履行过程,给出运转成果。
Private Sub Command1_Click()
Dim x$, n%
n = 20
Do While n <> 0
a = n Mod 2
n= n \ 2
x = Chr(48 + a) & x
Loop
Print x
End Sub
答:










9、剖析下面程序的履行过程,给出运转成果。
Private Sub command1_click()
x = InputBox(“请输入一个整数”)
flag = 1
For i = 2 To (1)
If x Mod i = 0 Then
flag = 0
End if
Next i
If( (2) ) Then Print x; “素数” Else Print x; “非素数”
End Sub


答:







10、在窗体上画一个称号为Command1的指令按钮,然后编写如下程序:
Option Base 1
Private Sub Command1_Click()
Dim a(10) As Integer
For i = 1 To 10
a(i) = i
Next
Call swap( (1) )
For i = 1 To 10
Print a(i)
Next
End Sub
Sub swap(b() As Integer)
n = (2)
For i = 1 To n / 2
t = b(i)
b(i) = b(n)
b(n) = t
(3)
Next
End Sub
上述程序的功用是:经过调用过程swap,互换数组中数值的寄存方位,即a(1)与a(10)的值交换,a(2)与a(9)的值交换,……,a(5)与a(6)的值交换。试剖析给出的程序代码,完结相应的句子。
答:













二、编程题(第1-2题10分、第3-4题15分,共50分)
1、编写程序,由键盘输入10个数,求出其间的最大数。
答:









2、编写程序,其功用为输出1+2+……+100的和,并求出1-100之间能被17整除的数的个数。
答:









3、编写程序,给出一个百分制的分数,要求输出分数的相应等级。
答:











4、编写程序,输入一个年份,判别该年是不是为闰年。
答:
奥鹏作业答案 联系QQ:3326650399 微信:cs80188

作业答案 联系QQ:3326650399 微信:cs80188