运行如下程序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 nEnd Subn的值是( )。
- A.2
- B.3
- C.4
- D.5
热度🔥461
参考答案：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。
【解析】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。
复制题目向AI提问
扫码免费计算机二级刷题
2025年计算机等级考试题库
推荐
在窗体有两个名为 text1、text2 的文本框和一个名为 Command1 的命令按钮，事件过程：
Private sub command1_click()
Dim x as Integer, n as Integer
x = 1
n = 0
Do While x < 20
x = x * 3
n = n + 1
Loop
text1 = str(x)
text2 = str(n)
End Sub
程序运行后，单击命令按钮，在两个文本框 text1 和 text2 中显示的值分别是
有以下程序
#include
main()
{ int a;
a = (int)(-1.53*3);
printf("%d\n", a);
}
程序的运行结果是
“教师表”中有“职工号”、“姓名”和“工龄”等字段，其中“职工号”为主关键字，建立“教师表”的SQL命令是( )。
假设某文件系统的物理结构采用类UNIX的二级索引结构。主索引表有12项，前10项给出文件前10块的磁盘地址，第11项给出一级索引表的地址，第12项给出二级索引表的地址。一级和二级索引表的大小均为一个磁盘块，可存放100个磁盘地址。在找到主索引表之后，要访问文件的第1000块，还需要启动多少次磁盘？
某二叉树的后序遍历序列与中序遍历序列相同，均为 ABCDEF ，则按层次输出（同一层从左到右）的序列为（ ）。
