2. 计算机
  3. 运行如下程序 Private Sub Command1_Click() 　　Dim a(5， 5)As Integer 　　For i＝1 To 5 　　　　For j＝1 To 4 　　　　　　a(i， j)＝i * 2＋j 　　　　　　If a(i，

运行如下程序 Private Sub Command1_Click() 　　Dim a(5， 5)As Integer 　　For i＝1 To 5 　　　　For j＝1 To 4 　　　　　　a(i， j)＝i * 2＋j 　　　　　　If a(i，

admin2020-06-30  65
问题 运行如下程序
Private Sub Command1_Click()
　　Dim a(5， 5)As Integer
　　For i＝1 To 5
　　　　For j＝1 To 4
　　　　　　a(i， j)＝i * 2＋j
　　　　　　If a(i， j)/ 7＝a(i， j)\7 Then
　　　　　　　　 n＝n＋1
　　　　　　End If
　　　　Next j
　　Next
　　Print n
End Sub
n的值是(　　)。
选项 A、2
B、3
C、4
D、5
答案B
解析 VB中"/"是浮点除法运算符，"\"是整数除法运算符，程序中的条件表达式a(i， j)/ 7＝a(i， j)成立时说明这个数能够被7整除，程序即是统计这个二维数组中能被7整除的数的个数。数组元素值在i＝1时为(3,4,5,6)，i＝2时为(5,6,7,8)，i＝3时为(7,8,9,10)，i＝4时为(9,10,11,12)，i＝5时为(11,12,13,14)，其中能够被7整除的数有7、7、14共3个。因此答案为B。
转载请注明原文地址:https://kaotiyun.com/show/t1Hp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)