您所在的当前位置: 计算机等级考试题库   >  
BASIC题库  
  >  [单项选择题] 设有如下Command1的单击事件过程及fun过程: Private Sub Command1_Click( ) Dim x As Integer x = Val( InputBox( "请输入一个整数" ) ) fun(x) End Sub Private Sub fun( x As Integer) If x Nod 2 =0 Then fun(x / 2) Print x ; End Sub 执行上述程序,输入6,结果是( )。 A. 3 6 B. 6 3 C. 6 D. 程序死循环
问题:
发布时间:2022-07-01

[单项选择题] 设有如下Command1的单击事件过程及fun过程:
Private Sub Command1_Click( )
Dim x As Integer
x = Val( InputBox( "请输入一个整数" ) )
fun(x)
End Sub
Private Sub fun( x As Integer)
If x Nod 2 =0 Then fun(x / 2)
Print x ;
End Sub
执行上述程序,输入6,结果是( )。


A. 3 6
B. 6 3
C. 6
D. 程序死循环

可能感兴趣的题目:

1

[填空题] 设有下列二叉树: 对此二叉树前序遍历的结果为 【4】

2

[填空题] 用synchronized标识的共享数据必须是 【8】

3

[单项选择题] 算法指的是


A.计算机程序
B.解决问题的计算方法
C.排序算法
D.解题方案准确而完整的描述

4

[问答题] 在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有两个文本框,名称分别为Text1和Text2,Text2可以多行显示;有一个名称为Command1的通用对话框;还有3个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“打开文件”、“删除”和“保存”。程序运行时窗体界面如下图所示。命令按钮的功能是:单击“打开文件”按钮,弹出打开文件对话框,默认打开文件的类型为“Text Files(*.txt)”。选择考生文件夹下的in5.txt文件后,该文件中的内容显示在Text1中;单击“删除”按钮,程序将把Text1中的所有与Text2中相同的字符串删除,并将结果显示在Text1中;单击“保存”按钮,把Text1中的内容存入考生文件夹下的out5.txt文件中。在窗体中已经给出了部分程序。要求:请去掉程序中的注释符,把程序中的改为正确的内容。但不能修改程序中的其他部分,也不能修改控件的属性。编写“删除”按钮的Click事件过程,最后把修改后的文件按原文件名存盘。注意:考生不得修改已有的程序和控件的属性,必须对考生文件夹下的in5.txt文件进行转换,并把转换结果通过“保存”按钮存入考生文件夹下的out5.txt文件中,否则无成绩。 

5

[单项选择题] Move方法的一般形式是[对象名.]Move A[,B[,C[,D]]].其中B指的是______。


A.Left
B.Top
C.Width
D.Height

6

[单项选择题] 下列关于过滤流的说法不正确的是( )。


A.无限次
B.一次也不执行
C.执行一次
D.执行三次

7

[多项选择题] 在考生文件夹下有一个工程文件sjt4.vbp,窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时,在Text1中输入若干个大写和小写字母,并选中一个单选按钮,再单击“转换”按钮,则按选中的单选按钮的标题进行转换,结果放在Text2中(如下图所示)。
在给出的文件中已经给出了全部控件,但程序不完整,要求:去掉程序中的注释符,把程序中的部分改为正确的内容。

试题源程序:
1 Private Sub Command1 Click( )
2 Dim n As Integer, k As Integer, ch As String, aAs String
3 n=Len(Text1.Text)
4 ch=""
5 For k=1 To n
6 ’a=Mid $ (Text1.Text,,1)
7 If Option1.Value=True Then
8 If a>="a" And a<="z" Then
9 ch=ch+UCase(a)
10 Else If a>="A" And a<="Z" Then
11 ’ch=ch+
12 Else
13 ch=ch+a
14 End If
15 End If
16 If Option2.Value=True Then
17 ch=UCase(Text1)
18 End If
19 If Option3.Value=True Then
20 ch=LCase(Text1)

8

[填空题] 在数据库理论中,数据物理结构的改变,如存储设备的更换、物理存储的更换、存取方式等都不影响数据库的逻辑结构,从而不引起应用程序的变化,称为 【4】

9

[单项选择题] MDI窗体执行MDIForm1.Arrange2的作用为____。


A.层叠所有非最小化MDI子窗体
B.水平平铺所有非最小化MDI子窗体
C.垂直平铺所有非最小化MDI子窗体
D.重排最小化MDI子窗体的图标

10

[单项选择题] 设有如下程序Option Base 1Private Sub Form_Click( )Dim a(5) As String , i As IntegerFor i=1 To 5a(i)=Chr(Asc(“A”)+i)Call f(a,i)Next iEnd SubSub f(ta() As String , n As Integer)Dim i As IntegerFor i=1 ToPrint ta(i);Next iEnd Sub对上述程序,以下叙述中正确的是()。


A.程序有错,因为在过程f的定义中数组参数格式不正确
B.程序可正常运行,输出内容的第一行是一个字母“A”
C.程序可正常运行,输出内容的第一行是一个字母“B”
D.程序可正常运行,输出内容的第一行是数字65