阅读程序:Private Sub Form_ Click( ) a=0 For j=1 To 15 a=a+j Mod 3 Next j Print aEnd Sub 程序运行后,单击窗体,输出结果是___。 A. 105 B. 1 C. 120 D. 15 相关知识点: 试题来源: 解析 D 正确答案:D 解析:本题是计算1到15对3取余的所有余数的和。For循环控制变量j从1到15...
Private Sub Form_Click()Dim a(1 To 10) As Integer, i%, maxa%, m%For i = 1 To 10A. (i) = Int(Rnd * 70) + 30B. Next iC. = a(1)D. or i = 2 To 10E. (i) > a(1) ThenF. = a(i): m = iG. nd IfNext i...
1设有以下程序: Private Sub Form_Click() x=50 For i=1 To 4 y=InputBox("请输入一个整数") y=Val(y) If y Mod 5=0 Then a=a+y:x=y Else a=a+x End If Next i Print a End Sub 程序运行后,单击窗体,在输入对话框中依次输入15、24、35、46,输出结果为 A.100B.50C.120D.70 2设...
1有如下程序:PrivateSubForm_Click()DimiAsInteger,sumAsIntegersum=0Fori=2To10IfiMod20AndiMod3=0Thensum=sum+iEndIfNextiPrintsumEndSub程序运行后,单击窗体,输出结果为 2有如下程序: Private Sub Form_Click( ) Dim i As Integer, Sum As Integer Sum = 0 For i = 2 To 10 If i Mod 2< >0 ...
Private Sub Form_Click() Static x(4) As Integer For i=1 To 4 x(i)=x(i)+i*3 Next i Print For i=1 To 4 Print “x(“;i;”)=”X(i) Next i End Sub 该程序在运行了3次后,其最终结果是 (7) 。 答案:x(1)=9 x(2)=18 x(3)=27 x(4)=36 点击查看答案解析手机看题 你可能...
题目阅读程序: Private Sub Form_Click() A. =0 B. or j=1 To 15 C. =a+j Mod 3 相关知识点: 试题来源: 解析 正确答案:B,你的答案:B, √ Next j Print a End Sub 程序运行后,单击窗体,输出结果是( )。 A. 1 B. 15 C. 105 D. 120...
有如下程序:Private Sub Form_Click( ) Dim n As Integer, a As String Dim L As Integer, C As Integer n = InputBox(“请输入一个整数”) For i = 1 To n a = InputBox(“请输入一个字符串”) L = Len(A) C = 0 For j = 1 To L If Mid(a, j, 1) = “D” Then C = C +...
1有人编写了如下程序: Private Sub Form_Click() Dim s As Integer, x As Integer s=0 x=0 Do While s=10000 x=x+1 s=s+x^2 Loop Print s End Sub 上述程序的功能是:计算s=1+22+32+…+n2+…,直到s>10000为止。程序运行后,发现得不到正确的结果,必须进行修改。下列修改中正确的是( )。 A...
1在窗体中有一个文本框Text1,编写的事件代码如下:Private Sub Form_Click()X=val(inputbox(“输入X的值”))Y=1If x0 then y=2Text1.value=yEnd Sub打开窗体运行后,在输入框中输入整数12,文本框Text1中输出的结果是( ) A. 1 B. 2 C. 3 D. 4 2在窗体中有一个文本框Text1,编写事件代码如下。
设有以下窗体单击事件过程:Private Sub Form_Click()a=1For i=1 To 3Select Case i Case 1,3 a=a+1 Case 2,4 a=a+2End SelectNext iMsgBox aEnd Sub打开窗体运行后,单击窗体消息框的输出内容应为【 】。 答案:正确答案:5 点击查看答案解析手机看题 你可能感兴趣的试题 问答题 Access数据库中数据访...