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

试卷相关题目

• 1有人编写了如下程序：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为止。程序运行后，发现得不到正确的结果，必须进行修改。下列修改中正确的是（　　）。

  A.把x=0改为x=1．

  B.把Do While s=10000改为Do While s<=10000

  C.把Do While S=10000改为Do While s>10000

  D.交换x=x+1和s=s+x^2的位置

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

  A.Input#1 a

  B.Write#1 a

  C.Put#1，a

  D.Get#1，a

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

  A.学生成绩管理系统

  B.C语言编译程序

  C.UNIX操作系统

  D.数据库管理系统

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

  A.椭圆形

  B.矩形

  C.菱形

  D.三角形

  开始考试点击查看答案
• 5设有如下程序：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

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

  A.复选框

  B.单选按钮

  C.组合框

  D.框架

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

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

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

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

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

  开始考试点击查看答案
• 8设有如下程序：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

  开始考试点击查看答案
• 9下面程序运行时，若输入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

  开始考试点击查看答案
• 10窗体上有一个名为Command1的命令按钮，并有下面的程序：Private Sub Command1 Click（　　）Dim arr(5)As Integer ．For k=1 To 5art(k)=kNext kprog art（　　）For k=1 T0 5Print art(k)；Next kEnd SubSub prog(a（　　）As Integer)n=UBound(a)For i=n To 2 step-1if a(j)<A(J十1)THENt=a(j)：a(1)=a(j+1)；a(j+1)=tEnd IfNext jNext iEnd Sub程序运行时，单击命令按钮后显示的是（　　）。

  A.12345

  B.54321

  C.01234

  D.43210

  开始考试点击查看答案