东大20年3月补考《可视化程序设计（VB）》考核作业[答案]

东大20年3月补考《可视化程序设计（VB）》考核作业[答案]满分答案

东 北 大 学 继 续 教 育 学 院
    可视化程序设计(VB)    试 卷（作业考核 线上2）  B  卷（共 6 页）         
总分   题号   一   二   三   四   五   六   七   八   九   十  
    得分                                          
 
一、简答题（每小题5分，共50分）
1、简述子过程和函数过程的共同点和不同之处。
答：
 
 
 
 
 
2、简述自定义类型和自定义变量的区别。
答：
 
 
 
 
     
3、简述标签和文本框的区别。
答：
 
 
 
 
 
 
4、简述列表框和组合框的异同处。
答：
 
 
 
 
 
 
 
5、分析下面程序的执行过程，给出运行结果。
       Private  Sub  Command2_Click()
          Dim x%, y%, z%
          x = 242; y = 44
          z = x * y
          Do  Until  x = y
               If  x> y Then x = x – y  Else y = y – x
          Loop
          Print x, z / x
       End  Sub
答：
 
 
 
 
 
 
 
 
 
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)的值互换。试分析给出的程序代码，完成相应的语句。
答：
 
 
 
 
 
 
 
 
 
 
 
 
 

东大20年3月补考《可视化程序设计（VB）》考核作业[答案]多选题答案

专业答案:----

二、编程题（第1-2题10分、第3-4题15分，共50分）
1、编写程序，由键盘输入10个数，求出其中的最大数。
答：
 
 
 
 
 
 
 
 
 
2、编写程序，其功能为输出1+2+……+100的和，并求出1-100之间能被17整除的数的个数。
答：
 
 
 
 
 
 
 
 
 
3、编写程序，给出一个百分制的成绩，要求输出成绩的相应等级。
答：
 
 
 
 
 
 
 
 
 
 
 
4、编写程序，输入一个年份，判断该年是否为闰年。
答：
 
 

东大20年3月补考《可视化程序设计（VB）》考核作业[答案]历年参考题目如下：