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

试卷相关题目

• 1设有如下程序：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

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

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

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

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

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

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

  A.复选框

  B.单选按钮

  C.组合框

  D.框架

  开始考试点击查看答案
• 4某人设计了如下程序用来计算并输出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

  开始考试点击查看答案
• 5有人编写了如下程序：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的位置

  开始考试点击查看答案
• 6窗体上有一个名为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

  开始考试点击查看答案
• 7以下描述中错误的是（　　）。

  A.窗体的标题通过其Caption属性设置

  B.窗体的名称(Name属性)可以在运行期间修改

  C.窗体的背景图形通过其Picture属性设置

  D.窗体最小化时的图标通过其Icon属性设置

  开始考试点击查看答案
• 8目录列表框的Path属性的作用是（　　）。

  A.显示当前驱动器或指定驱动器上的某目录下的文件名

  B.显示当前驱动器或指定驱动器上的目录结构

  C.显示根目录下的文件名

  D.显示该路径下的文件

  开始考试点击查看答案