在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：Private Function f(m As Integer)If m Mod 2 = 0 Thenf = mElsef = 1End IfEnd FunctionPrivate Sub Command1_Click()Dim i As Integers = 0For i = 1 To 5s = s + f(i)NextPrint sEnd Sub程序运行后，单击命令按钮，在窗体上显示的是

试卷相关题目

• 1在以下描述中正确的是

  A.标准模块中的任何过程都可以在整个工程范围内被调用

  B.在一个窗体模块中可以调用在其他窗体中被定义为Public的通用过程

  C.如果工程中包含Sub Main过程，则程序将首先执行该过程

  D.如果工程中不包含Sub Main过程，则程序一定首先执行第一个建立的窗体

  开始考试点击查看答案
• 2在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：Private Sub Command1_Click()n = Val(Text1.Text)For i = 2 To nFor j = 2 To sqr(i)If i Mod j = 0 Then Exit ForNext jIf j > Sqr(i) Then Print iNext iEnd Sub该事件过程的功能是

  A.输出n以内的奇数

  B.输出n以内的偶数

  C.输出n以内的素数

  D.输出n以内能被j整除的数

  开始考试点击查看答案
• 3在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:Private Sub Command1_Click()c = 1234c1 = Trim(Str(c))For i = 1 To 4PrintNextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容1121231234则在下划线处应填入的内容为

  A.Right(c1,i)

  B.Left(c1,i)

  C.Mid(c1,i,1)

  D.Mid(c1,i,i)

  开始考试点击查看答案
• 4在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：Private Sub Command1_Click()n = Val(Text1.Text)If n2 = n/2 Thenf = f1(n)Elsef = f2(n)End IfPrint f; nEnd SubPublic Function f1(ByRef x)x=x*xf1=x+xEnd FunctionPublic Function f2(ByVal x)x=x*xf2=x+x+xEnd Function程序运行后，在文本框中输入6，然后单击命令按钮，窗体上显示的是

  A.72 36

  B.108 36

  C.72 6

  D.108 6

  开始考试点击查看答案
• 5假定在窗体（名称为Form1）的代码窗口中定义如下记录类型：Private Type animalAnimalName As String*20AColor As String*10End Type在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:Private Sub Command1_Click()Dim rec As animalOpen "c:vbTest.dat" For Random As #1 Len = Len(rec)rec.animalName = "Cat"rec.aColor = "White"Put #1, , recClose #1End Sub则以下叙述中正确的是

  A.记录类型animal不能在Form1中定义，必须在标准模块中定义

  B.如果文件c:vbTest.dat不存在，则Open命令执行失败

  C.由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾

  D.语句“Put #1, , rec”将animal类型的两个数据元素写到文件中

  开始考试点击查看答案
• 6在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim array1(10, 10) As IntegerDim i As Integer, j As IntegerFor i = 1 To 3For j = 2 To 4array1(i, j) = i + jNext jNext iText1.Text = array1(2, 3) + array1(3, 4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是

  A.15

  B.14

  C.13

  D.12

  开始考试点击查看答案
• 7在窗体上画四个文本框，并用这四个文本框建立一个控件数组，名称为Text1（下标从0开始，自左至右顺序增大），然后编写如下事件过程：Private Sub Command1_Click()For Each TextBox In Text1Text1(i) = Text1(i).Indexi = i + 1NextEnd Sub程序运行后，单击命令按钮，四个文本框中显示的内容分别为

  A.0　1　2　3

  B.1　2　3　4

  C.0　1　3　2

  D.出错信息

  开始考试点击查看答案