计算机二级vb上机题库(3)

时间:2016-01-01 09:39:42
染雾
分享
WORD下载 PDF下载 投诉

  (34)某人设计了下面的函数fun,功能是返回参数a中数值的位数

  Function fun(a As Integer) As Integer

  Dim n%

  n = 1

  While a \ 10 >= 0

  n = n + 1

  a = a \ 10

  Wend

  fun = n

  End Function

  在调用该函数时发现返回的结果不正确,函数需要修改,下面的修改方案中正确的是

  A)把语句n = 1改为n = 0

  B)把循环条件a \ 10 >= 0改为a \ 10 > 0

  C)把语句 a = a \ 10改为a = a Mod 10

  D)把语句fun = n改为 fun = a

  (35)在窗体上有一个名称为Check1的复选框数组

  (含4个复选框),还有一个名称为Text1的文本

  框,初始内容为空。程序运行时,单击任何复选

  框,则把所有选中的复选框后面的方字罗列在文

  本框中(见图)。下面能实现此功能的事件过程是

  A)Private Sub Check1_Click(Indes As Integer)

  Text1.Text =""

  For k = 0 To 3

  If Check1(k).value = 1 Then

  Text1.Text = Text1.Text & Check1(k).Caption & " " '双引号中是空格

  End If

  Next k

  End Sub

  B)Private Sub Check1_Click(Index As Integer)

  For k = 0 To 3

  If Check1(k).value = 1 Then

  Text1.Text = Text1.Text & Check1(k).Caption & " " '双引号中是空格

  End If

  Next k

  End Sub

  C)Private Sub Check1_Click(Index As Integer)

  Text1.Text = ""

  For k = 0 To 3

  If Check1(k).value = 1 Then

  Text1.Text = Text1.Text & Check1(Index).Caption & " " '双引号中是空格

  End If

  Next k

  End Sub

  D)Private Sub Check1_Click(Index As Integer)

  Text1.Text = ""

  For k = 0 To 3

  If Check1(k).value = 1 Then

  Text1.Text = Text1.Text & Check1(k).Caption & " " '双引号中是空格

  Exit For

  End If

  Next k

  End Sub

  二、填空题(每空2分,共30分)

  请将每空的正确答案写在答题卡[1]~[15]序号的横线上,答在试卷上不得分。

  (1)软件需求规格说明书应具有完整性,无岐义性、正确性、可验证性、可修改性等特征,其中最重要的是【1】 。

  (2)在两种基本测试方法中,【2】 测试的原则之一是保证所测模块中每一个独立路径至少执行一次。

  (3)线性表的存储结构主要分为顺序存储结构和链式存储结构。队列是一种特殊的线性表,循环队列是队列的【3】 存储结构。

  (4)对下列二叉树进行中序遍历的结果为【4】 。

  (5)在E-R图中,矩形表示【5】 。

  (6)窗体上有一个组合框,其中已输入了

  若干个项目。程序运行时,单击其中一

  项,即可把该项与最上面的一项交换。

  例如:单击图1中的“重庆”,则与“北

  京”交换,得到图2的结果。下面是可

  实现此功能的程序,请填空。

  Private Sub Combo1_Click()

  Dim temp

  temp = Combo1.Text

  [6] = Combo1.List(0)

  Combo1.List(0) = temp

  End Sub

  (7)设窗体上有一个名称为HScroIII的水平滚动条,要求当滚动块移动位置后,能够在窗体上输出移动的距离(即新位置与原位置的刻度值之差,向右移动为正数,向左移动为负数)。下面是可实现此功能的程序,请填写。

  Dim [7] As Integer

  Private Sub Form_Load()

  pos=HScroIII.value

  End Sub

  Private Sub HScroIII_Change()

  Print [8] -pos

  pos=HScroIII.value

  End Sub

  (8)设窗体上有一个名称为CD1的通用对话框,一个名称为Text1的文本框和一个名称为Command1的命令按钮。程序执行时,单击Command1按钮,则显示打开文件对话框,操作者从中选择一个文本文件,并单击对话框上的“打开”按钮后,则可打开该文本文件,并读入一行文本,显示在Text1中。下面是实现此功能的事件过程,请填空。

  Private Sub Command1_Click()

  CD1.Filter ="文本文件1*.txt(Word 文档)*.doc"

  CD1.Filterinder = 1

  CD1.ShowOpen

  If CD1.FileName<>""Then

  Open [9] For Input As #1

  Line Input #1,ch$

  Close #1

  Text1.Text = [10]

  End If

  End Sub

  (9)下面的程序执行时,可以从键盘输入一个正整数,然后把该数的每位数字按逆序输出。例如

:输入7685,则输出5867,输入1000,则输出0001。请填空。

  Private Sub Command1_Click()

  Dim x As Integer

  x=InputBox(“请输入一个正整数”)

  While x>__[11]___

  Print x Mod 10;

  x=x\10

  Wend

  Print__[12]__

  End Sub

计算机二级vb上机题库(3)

手机扫码分享

Top