位置:首页 > 题库频道 > 其它分类 > 计算机其它 > 二级二级VB2013年9月全国计算机等级《二级VB》上机临考冲刺试卷(3)

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

发布时间:2024-07-09

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

试卷相关题目

  • 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

    开始考试点击查看答案
返回顶部