一个工程中包含两个名称分别为Form1、Form2的窗体，一个名称为mdlFunc的标准模块。假定在Form1、Form2和mdlFunc中分别建立了自定义过程，其定义格式为：Form1中定义的过程：Private Sub frmFunction1()……End SubForm2中定义的过程：Public Sub frmFunction2()……End SubmdlFunc中定义的过程：Public Sub mdlFunction()……End Sub在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是

试卷相关题目

• 1设在窗体上有一个名称为Command1的命令按钮，并有以下事件过程：Private Sub Command1_Click()Static b As Variantb= Array(1,3,5,7,9)……End Sub此过程的功能是把数组b中的5个数逆序存放（即排列为9,7,5,3,1）。为实现此功能，省略号处的程序段应该是

  A.For i = 0 To 5-1 2tmp = b(i)b(i) = b(5 - i - 1)b(5 - i - 1) = tmpNext

  B.For i = 0 To 5tmp = b(i)b(i) = b(5 - i - 1)b(5 - i - 1) = tmpNext

  C.For i = 0 To 5 2tmp = b(i)b(i) = b(5 - i - 1)b(5 - i - 1) = tmpNext

  D.For i = 1 To 5 2tmp = b(i)b(i) = b(5 - i - 1)b(5 - i - 1) = tmpNext

  开始考试点击查看答案
• 2在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Label3的标签，然后编写如下代码：Private x As IntegerPrivate Sub Command1_Click()Static y As IntegerDim z As Integern = 10z = n + zy = y + zx = x + zLabel1.Caption = xLabel2.Caption = yLabel3.Caption = zEnd Sub运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是

  A.10 10 10

  B.30 30 30

  C.30 30 10

  D.10 30 30

  开始考试点击查看答案
• 3在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程：Private Sub Command1_Click()s = 0For i = 1 To 15x = 2 * i - 1If x Mod 3 = 0 Then s = s + 1Next iLabel1.Caption = sEnd Sub程序运行后，单击命令按钮，则标签中显示的内容是

  A.1

  B.5

  C.27

  D.45

  开始考试点击查看答案
• 4在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码：Private X As IntegerPrivate Sub Command1_Click()X = 5: Y = 3Call proc(X, Y)Label1.Caption = XLabel2.Caption = YEnd SubPrivate Sub proc(ByVal a As Integer, ByVal b As Integer)X = a * aY = b + bEnd Sub程序运行后，单击命令按钮，则两个标签中显示的内容分别是

  A.5和3

  B.25和3

  C.25和6

  D.5和6

  开始考试点击查看答案
• 5以下能够正确计算n!的程序是

  A.Private Sub Command1_Click()n = 5: x = 1Dox = x * ii = i + 1Loop While i < nPrint xEnd Sub

  B.Private Sub Command1_Click()n = 5: x = 1: i = 1Dox = x * ii = i + 1Loop While i < nPrint xEnd Sub

  C.Private Sub Command1_Click()n = 5: x = 1: i = 1Dox = x * ii = i + 1Loop While i <= nPrint xEnd Sub

  D.Private Sub Command1_Click()n = 5: x = 1: i = 1Dox = x * ii = i + 1Loop While i > nPrint xEnd Sub

  开始考试点击查看答案
• 6在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为"Save"，缺省文件名为"SaveFile"，在"文件类型"栏中显示*.txt。则能够满足上述要求的程序是

  A.Private Sub Command1_Click()CommonDialog1.FileName = "SaveFile"CommonDialog1.Filter = "All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"CommonDialog1.FilterIndex = 2CommonDialog1.DialogTitle = "Save"CommonDialog1.Action = 2End Sub

  B.Private Sub Command1_Click()CommonDialog1.FileName = "SaveFile"CommonDialog1.Filter = "All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"CommonDialog1.FilterIndex = 1CommonDialog1.DialogTitle = "Save"CommonDialog1.Action = 2End Sub

  C.Private Sub Command1_Click()CommonDialog1.FileName = "Save"CommonDialog1.Filter = "All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"CommonDialog1.FilterIndex = 2CommonDialog1.DialogTitle = "SaveFile"CommonDialog1.Action = 2End Sub

  D.Private Sub Command1_Click()CommonDialog1.FileName = "SaveFile"CommonDialog1.Filter = "All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"CommonDialog1.FilterIndex = 1CommonDialog1.DialogTitle = "Save"CommonDialog1.Action = 1End Sub

  开始考试点击查看答案