2013国二c语言真题,2013年3月全国计算机二级c语言真题

2013年3月全国计算机二级c语言真题

(35)以下程序将随机产生n个两位整数，并使用冒泡法将它们按递增顺序排序后输出。

Option Base 1

Private Sub Command1_Click()

Dim a() As Integer

Dim i As Integer, j As Integer

Randomize

n = InputBox("输入数据个数")

ReDim a(n)

For i = 1 To n

a(i) = Int(Rnd * 90) + 10

Next i

For i = 1 To n - 1

For j = 1 To n - i

If a(j) < a(j - 1) Then

temp = a(j): a(j) = a(j - 1): a(j - 1) = temp

End If

Next j

Next i

For i = 1 To n

Print a(i);

Next i

End Sub

运行以上程序，发现有错误，需要对j循环的开始语句进行修改。以下正确的修改是

二、填空题。

(1)某二叉树有5个度为2的结点，则该二叉树中的叶子结点数为 。

(2)设一个队列的初始状态为空。现将元素A,B,C,D,E,F,5,4,3,2,1依次入队，然后再依次退队，则元素退队的顺序为 。

(3)对模块独立性度量的两个定性标准是耦合性与内聚性。描述模块间互相连接的紧密程度的是 。

(4)“软件系统”的系统结构图如下图所示：该系统的最大扇出数是 。

(5)数据库设计包括概念设计、 和物理设计。

(6)设有如下程序：

Option Base 0

Private Sub Command1_Click()

Dim 或【arr】

Dim i As Integer

arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)

For i = 0 To 3

Print arr

Next

End Sub

当运行程序，并单击命令按钮后，窗体上显示5 4 3 2。请填空，使程序能够完成此项功能。

(7)在窗体上建立一个有4个元素、名称为Label1的标签数组，下标从0开始，各元素的Caption属性值依次为“等”、“级”、“考”、“试”;再画一个名称为Timer1的计时器控件，其 Interval属性设为1000.窗体如图所示。

程序运行时，从左到右反复显示这4个字，但每次只显示1个。请填空，使程序实现上述功能。

Dim i As Integer

Private Sub Form_Load()

For i = 0 To 3

Label1(i).Visible = False

Next

End Sub

Private Sub Timer1_Timer()

If i 3 Then

Label1(i).Visible = True

If i = 0 Then

Label1(3).Visible =

Else

Label1 .Visible = False

End If

i = i + 1

Else

i = 0

End If

End Sub

(8)窗体上有一个名称为Combo1的组合框，其中已经添加了若干项目。程序运行时，单击Command1命令按钮，会把选中的项目从组合框中删除。请填空。

Private Sub Command1_Click()

Dim str As String

Dim i As Integer

str = RTrim( .Text)

If str > "" Then

For i = 0 To

If Combo1.List(i) = str Then Combo1.RemoveItem

Next i

End If

End Sub

(9)设命令按钮的单击事件过程如下：

Private Sub Command1_Click()

Open "e:\file1.txt" For As #1

Print #1, "Testing"

Close #1

Open "e:\file1.txt" For Append As #1

#1, "ABCDEF"

Close #1

End Sub

程序的功能是：建立一个名称为file1.txt的文件，写入字符串“Testing”，关闭文件后再次打开，再写入字符串“ABCDEF”。请填空使程序完整。

【2013年3月全国计算机二级c语言真题】相关文章：