设有如下程序：Private Sub Command1_Click( )Dim sum As Double,  x As DoubleSum = 0n = 0For i = 1 To 5x=n/in=n+1sum=sum+xNext IEnd Sub该程序通过For循环来计算一个表达式的值，这个表达式是

试卷相关题目

• 1设有如下窗体单击事件过程：Private Sub Form_Click( )a = 1For i = 1  To 3Select Case iCase 1,3a= a+1Case 2,4a= a+2End SelectNext iMsgBox aEnd Sub打开窗体运行后，单击窗体，则消息框的输出的结果是

  A.3

  B.4

  C.5

  D.6

  开始考试点击查看答案
• 2在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：Private Sub Command1_Click( )a = 75If  a>60  Thenk = 1Elself  a>70  Thenk = 2Elself  a>80  Thenk = 3Elself  a>90  Thenk = 4EndIfMsgBox kEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果是

  A.1

  B.2

  C.3

  D.4

  开始考试点击查看答案
• 3假设某数据库已建有宏对象“宏1”，“宏1”中只有一个宏操作SetValue，其中第一个参数项目为“[Label0].[Caption]”，第二个参数表达式为“[Text0]”。窗体“fmTest”中有一个标签Label0和一个文本框Text0，现设置控件Text0的“更新后”事件为运行“宏1”，则结果是

  A.将文本框清空

  B.将标签清空

  C.将文本框中的内容复制给标签的标题，使二者显示相同内容

  D.将标签的标题复制到文本框，使二者显示相同内容

  开始考试点击查看答案
• 4InputBox函数的返回值类型是

  A.数值

  B.字符串

  C.变体

  D.数值或字符串（视输入的数据而定）

  开始考试点击查看答案
• 5有如下语句：s = Int(100 *Rnd)执行完毕后，s的值是

  A.[0，99]的随机整数

  B.[0,100]的随机整数

  C.[1,99]的随机整数

  D.[1,100]的随机整数

  开始考试点击查看答案
• 6下列Case语句中错误的是

  A.Case 0 To 10

  B.Case Is>10

  C.Case Is>10 And Is<50

  D.Case 3,5 Is>10

  开始考试点击查看答案
• 7如下程序段定义了学生成绩的记录类型，由学号、姓名和三门课程成绩（百分制）组成。Type  Studno    As  Integername  As    Stringscore (1 to 3)  As  SingleEnd  Type若对某个学生的各个数据项进行赋值，下列程序段中正确的是

  A.Dim S As StudStud.no=1001Stud.name="舒宜"Stud.score=78,88,96

  B.Dim S As StudS.no=1001S.name="舒宜"S.score=78,88,96

  C.Dim S As StudStu

  D.no=1001Stud.name="舒宜"Stud.score(1)=78Stud.score(2)=88Stud.score(3)=96D.Dim S As StudS.no=1001S.name="舒宜"S.score(1)=78S.score(1)=88S.score(1)=96

  开始考试点击查看答案