大学职业资格刷题搜题APP
创建自己的小题库
搜索
【单选题】
下面程序的功能是输出以下形式的金字塔图案是： * * * * * * * * * * * * * * * * main( ) { int i,j; for(i=1;i<=4;i++) { for(j=1;j<=4-i;j++)printf( “ ” ); for(j=1;j<=_______;j++)printf(“*”); printf(“\n”);}} 在下划线处应填入的是（ ）。
A.
i
B.
2*i-1
C.
2*i+1
D.
i+2
手机使用
分享
复制链接
新浪微博
分享QQ
微信扫一扫
反馈
收藏
举报
参考答案：
举一反三
【单选题】根据金字塔饮食指南，你认为以下哪种选择符合健康的饮食标准。
A.
首选面包、大米等，再加上肉类和很少份量的油脂和糖果类
B.
首选鱼类和肉类，再加上同等数量的米面食类，控制油脂和糖类食物
C.
首选米面食及蔬菜类，再加上肉类及蛋奶类，少加油脂和糖果类
D.
首选蔬菜类，再加上米面食类，控制肉类和油脂类和糖果类
【单选题】有如下事件过程：Private Sub Form_Load() Show Dim Arr() As Variant Arr = Array(1, 3, 5, 7, 9, 11, 13, 15) Call converse(Arr) For i = 0 To 7 Print arr(i); Next iEnd Sub 以上程序的功能是，通过调用Converse过程，将数组Arr中的元素逆序存放并输出...
A.
Private Sub converse(dim a() as Variant ) Dim T For i = LBound(A) To UBound(A) T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
B.
Private Sub converse(dim a() as Variant) Dim T Dim J As Integer J = (LBound(A) + UBound(A)) / 2 For i = LBound(A) To J T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
C.
Private Sub converse(a() As Variant) Dim T For i = LBound(A) To UBound(A) T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
D.
Private Sub converse(a() As Variant) Dim T Dim J As Integer J = Int((LBound(A) + UBound(A)) / 2) For i = LBound(A) To J T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
相关题目：
【单选题】根据金字塔饮食指南，你认为以下哪种选择符合健康的饮食标准。
A.
首选面包、大米等，再加上肉类和很少份量的油脂和糖果类
B.
首选鱼类和肉类，再加上同等数量的米面食类，控制油脂和糖类食物
C.
首选米面食及蔬菜类，再加上肉类及蛋奶类，少加油脂和糖果类
D.
首选蔬菜类，再加上米面食类，控制肉类和油脂类和糖果类
【单选题】有如下事件过程：Private Sub Form_Load() Show Dim Arr() As Variant Arr = Array(1, 3, 5, 7, 9, 11, 13, 15) Call converse(Arr) For i = 0 To 7 Print arr(i); Next iEnd Sub 以上程序的功能是，通过调用Converse过程，将数组Arr中的元素逆序存放并输出...
A.
Private Sub converse(dim a() as Variant ) Dim T For i = LBound(A) To UBound(A) T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
B.
Private Sub converse(dim a() as Variant) Dim T Dim J As Integer J = (LBound(A) + UBound(A)) / 2 For i = LBound(A) To J T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
C.
Private Sub converse(a() As Variant) Dim T For i = LBound(A) To UBound(A) T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
D.
Private Sub converse(a() As Variant) Dim T Dim J As Integer J = Int((LBound(A) + UBound(A)) / 2) For i = LBound(A) To J T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
参考解析：
题目纠错 0
发布
