运行如下程序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
热度🔥411
参考答案：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年计算机等级考试题库
推荐
假设邮件服务器的地址是email.bj163.com，则用户正确的电子邮箱地址的格式是（）。
假定有以下函数过程：Function Fun(S As String)As String Dim s1 As String For i＝1 To Len(S) s1＝LCase(Mid(S， i， 1))＋s1 Next i Fun＝s1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim Str1 As String， Str2 As String Str1＝InputBox("请输入一个字符串") Str2＝Fun(Str1) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为( )。
在电子邮件系统中使用base64编码的主要目的是
