填空题

面向对象的程序设计方法是把 【10】 封装起来作为一个对象，并为每一个对象设置所需要的 【11】 。

【参考答案】

[10] 程序和数据
[11] 属性
<上一题 目录 下一题>
热门 试题

填空题
下面的程序代码实现将一个一维数组中元素向右循环移动，移位次数由文本框Text1输入。例如数组各元素的值依次为0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10; 移动三次后，各元素的值依次为 8, 9, 10, 0, 1,2 3,4,5,6,7。 Private Sub MoveRight (x() As Integer) Dim i As Integer Dim j As Integer Dim k As Integer i = UBound (x) j = x(i) For k = i To 【7】 Step -1 【8】 Next k x(LBeund(x)) = j End Sub Private Sub Command1_click() Dim a(10) As Integer Dim i As Integer Dim j As Integer Dim k As Integer For i = 0 To 10 a(i) = i Next i j = Val(Text1. Text) k=0 Do k=k+1 Call MoveRight(a) Loop Until k = j For i = 0 To 10 Print a(i); Next i End Sub
填空题
以下程序用来建立一个10*10矩阵，该矩阵两条对角线上的元素为1，其余元素为0，请补充完该程序。 该程序运行结果见下图。 Private Sub Form_ click() Dim s(10, 10) As Integer For n = 1 To 10 For m = 1 To 10 If 【12】 Or 【13】 Then s (n, m) = 1 Else s (n, m) = 0 End If Next m Next n For n = 1 To 10 For 【14】 。 Picturel. Print Tab(m * 3); s(n, m) Next m Print Next n End Sub
相关试题