函数过程F1的功能是：如果参数b为奇数，则返回值为1，否则返回值为0。以下能正确实现上述功能的代码是

试卷相关题目

• 1以下关于函数过程的叙述中，正确的是

  A.如果不指明函数过程参数的类型，则该参数没有数据类型

  B.函数过程的返回值可以有多个

  C.当数组作为函数过程的参数时，既能以传值方式传递，也能以引用方式传递

  D.函数过程形参的类型与函数返回值的类型没有关系

  开始考试点击查看答案
• 2在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim a(5) As StringFor i = 1 To 5a(i) = Chr(Asc("A") + (i - 1))Next iFor Each b In aPrint b;NextEnd Sub程序运行后，单击命令按钮，输出结果是

  A.ABCDE

  B.1 2 3 4 5

  C.abcde

  D.出错信息

  开始考试点击查看答案
• 3有如下程序：Option Base 1Private Sub Form_Click()Dim arr, SumSum = 0arr = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19)For i = 1 To 10If arr(i) / 3 = arr(i) 3 ThenSum = Sum + arr(i)End IfNext iPrint SumEnd Sub程序运行后，单击窗体，输出结果为

  A.25

  B.26

  C.27

  D.28

  开始考试点击查看答案
• 4在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click()Dim a1(4, 4), a2(4, 4)For i = 1 To 4For j = 1 To 4a1(i, j) = i + ja2(i, j) = a1(i, j) + i + jNext jNext iPrint a1(3, 3); a2(3, 3)End Sub程序运行后，单击命令按钮，在窗体上输出的是

  A.6 6

  B.10 5

  C.7 21

  D.6 12

  开始考试点击查看答案
• 5在窗体上画一个名称为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.12

  B.13

  C.14

  D.15

  开始考试点击查看答案
• 6以下关于KeyPress事件过程中参数KeyAscii的叙述中正确的是

  A.KeyAscii参数是所按键的ASCII码

  B.KeyAscii参数的数据类型为字符串

  C.KeyAscii参数可以省略

  D.KeyAscii参数是所按键上标注的字符

  开始考试点击查看答案
• 7设窗体上有一个名为Text1的文本框，并编写如下程序：Private Sub Form_Load()ShowText1.Text = ""Text1.SetFocusEnd SubPrivate Sub Form_MouseUp(Button As Integer, _Shift As Integer, X As Single, Y As Single)Print "程序设计"End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)Print "Visual Basic";End Sub程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是

  A.Visual Basic

  B.程序设计

  C.Visual Basic程序设计

  D.a程序设计

  开始考试点击查看答案
• 8假定通用对话框的名称为CommonDialog1，命令按钮的名称为Command1，则单击命令按钮后，能使打开的对话框的标题为“New Title”的事件过程是

  A.Private Sub Command1_Click()CommonDialog1.DialogTitle = "New Title"CommonDialog1.ShowPrinterEnd Sub

  B.Private Sub Command1_Click()CommonDialog1.DialogTitle = "New Title"CommonDialog1.ShowFontEnd Sub

  C.Private Sub Command1_Click()CommonDialog1.DialogTitle = "New Title"CommonDialog1.ShowOpenEnd Sub

  D.Private Sub Command1_Click()CommonDialog1.DialogTitle = "New Title"CommonDialog1.ShowColorEnd Sub

  开始考试点击查看答案
• 9如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是

  A.任何时刻最多只有一个窗体是活动窗体

  B.不能把标准模块设置为启动模块

  C.用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体

  D.如果工程中含有Sub Main过程，则程序一定首先执行该过程

  开始考试点击查看答案
• 10假定在工程文件中有一个标准模块，其中定义了如下记录类型Type BooksName As String * 10TelNum As String * 20End Type要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是

  A.Private Sub Command1_Click()Dim B As BooksOpen "c:Person.txt" For Output As #1B．Name = InputBox("输入姓名")B．TelNum = InputBox("输入电话号码")Write #1,

  B.Name, B.TelNumClose #1End SubB.Private Sub Command1_Click()Dim B As BooksOpen "c:Person.txt" For Input As #1B．Name = InputBox("输入姓名")B．TelNum = InputBox("输入电话号码")Print #1, B.Name, B.TelNumClose #1End Sub

  C.Private Sub Command1_Click()Dim B As BooksOpen "c:Person.txt" For Output As #1Name = InputBox("输入姓名")TelNum = InputBox("输入电话号码")Write #1, BClose #1End Sub

  D.Private Sub Command1_Click()Dim B As BookOpen "c:Person.txt" For Input As #1Name = InputBox("输入姓名")TelNum = InputBox("输入电话号码")Print #1, B.Name, B.TelNumClose #1End Sub

  开始考试点击查看答案