有人编写了如下程序：Private Sub Form Click（　　）Dim s As Integer，x As Integers=0x=0Do While S=1000x=x+ls=s+x^2LoopPrint sEnd Sub上述程序的功能是：计算s=1+22+32+…+n2+…，直到s>10000为止。程序运行后，发现得不到正确的结果，必须进行修改。下列修改中正确的是（　　）。

试卷相关题目

• 1设有打开义件的语句如下：Open"test_dat"For Random As#1要求把变量a中的数据保存到该文件中，应该使用的语句是（　　）。

  A.Input#1 a

  B.Write#1 a

  C.Put#1，a

  D.Get#1，a

  开始考试点击查看答案
• 2软件按功能可以分为应用软件、系统软件和支撑软件(或工具软件)。下面属于应用软件的是（　　）。

  A.学生成绩管理系统

  B.C语言编译程序

  C.UNIX操作系统

  D.数据库管理系统

  开始考试点击查看答案
• 3在E—R图中，用来表示实体联系的图形是（　　）。

  A.椭圆形

  B.矩形

  C.菱形

  D.三角形

  开始考试点击查看答案
• 4设有如下程序：Private Sub Form Click（　　）Dim i As Integer，x As String，y As Stringx="ABCDEFG"For i=4 To 1Step-1y=Mid(X，i，i)+yNext iPrint yEnd Sub程序运行后，单击窗体，输出结果为（　　）。

  A.ABCCDEDEFG

  B.AABBCDEFG

  C.ABCDEFG

  D.AABBCCDDEEFFGG

  开始考试点击查看答案
• 5在软件开发中，需求分析阶段产生的主要文档是（　　）。

  A.软中集成测试汁划

  B.软件详细设计说明书

  C.用户手册

  D.软件需求规格说明书

  开始考试点击查看答案
• 6某人设计了如下程序用来计算并输出7!(7的阶乘)Private Sub Command1 Click（　　）t=0For k=7 To 2 Step-1t=t*kNextPrint tEnd Sub执行程序时，发现结果是错误的，下面的修改方案中能够得到正确结果的是（　　）。

  A.把t=0改为t=1

  B.把For k=7 To 2 Step-1改为For k=7 T0 1 Step-1

  C.把For k=7 To 2 Step-1改为For k=1 T0 7

  D.把Next改为Next k

  开始考试点击查看答案
• 7下面控件中，没有Caption属性的是（　　）。

  A.复选框

  B.单选按钮

  C.组合框

  D.框架

  开始考试点击查看答案
• 8以下关于弹出式菜单的叙述中，错误的是（　　）。

  A.一个窗体只能有一个弹出式菜单

  B.弹出式菜单在菜单编辑器中建立

  C.弹出式菜单的莱单名(主菜单项)的“可见”属性通常设置为False

  D.弹出式菜单通过窗体的PopupMenu方法显示

  开始考试点击查看答案
• 9设有如下程序：Option Base 0Private Sub Form_Click（　　）Dim aDim i As Integera=Array(1，2，3，4，5，6，7，8，9)For i=0 To 3Print a(5-i)；NextEnd Sub程序运行后，单击窗体，则在窗体上显示的是（　　）。

  A.4 3 2 1

  B.5 4 3 2

  C.6 5 4 3

  D.7 6 5 4

  开始考试点击查看答案
• 10下面程序运行时，若输入395，则输出结果是（　　）。Private Sub Command1_Click（　　）Dim X％x=InpetBox("请输入一个3位整数")Print x Mod 10，x／100，(x Mod 100)／10End Sub

  A.3 9 j

  B.5 3 9

  C.5 9 3

  D.3 5 9

  开始考试点击查看答案