[{"data":1,"prerenderedAt":-1},["ShallowReactive",2],{"$fmLDAiiFWOj8vqV6Z5aZ7ZYKdG13nlcY0qyNRI-Wzng4":3},{"id":4,"source":5,"question":6,"options":7,"answer":8,"related":9,"type":16,"origin":71,"createTime":18},317115538,"v1","有程序段如下: For i = 1 To 5 For j = 5 To i Step -1 Print i * j Next j Next i其中\"Print i*j\"语句执行的次数为_________",[],[],[10,19,25,29,35,41,47,53,59,65],{"id":11,"source":5,"question":12,"options":13,"answer":14,"related":15,"type":16,"origin":17,"createTime":18},317115536,"下面程序段的运行结果为________. For i=1 To 5 n=1 For j=1 To i n=n*j Next j Print n; Next i",[],[],[],2,null,"2026-01-26T17:08:06+08:00",{"id":20,"source":5,"question":21,"options":22,"answer":23,"related":24,"type":16,"origin":17,"createTime":18},317115537,"执行以下语句后,k的值为_____. Dim i As Single For i = 0.45 To 2 Step 0.5 k = k + 3 Next i Print i;k",[],[],[],{"id":4,"source":5,"question":6,"options":26,"answer":27,"related":28,"type":16,"origin":17,"createTime":18},[],[],[],{"id":30,"source":5,"question":31,"options":32,"answer":33,"related":34,"type":16,"origin":17,"createTime":18},317115539,"下面程序运行后,单击command1后屏幕显示是_________. Private Sub command1_click() For i = 1 To 5 If i > 3 Then Exit For Next i For j = 1 To 8 i =i + j Next j Print i, j End Sub",[],[],[],{"id":36,"source":5,"question":37,"options":38,"answer":39,"related":40,"type":16,"origin":17,"createTime":18},317115540,"在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click() Dim i As Integer, n As Integer For i = 0 To 50 i = i + 5 n = n + 1 If i > 30 Then Exit For Next Text1.Text = Str(n)End Sub程序运行后,单击命令按钮,在文本框中显示的值是______",[],[],[],{"id":42,"source":5,"question":43,"options":44,"answer":45,"related":46,"type":16,"origin":17,"createTime":18},317115541,"设有如下程序段:x = 2For i = 1 To 20 Step 3 x = x + iNext i运行以上程序后,x的值是______",[],[],[],{"id":48,"source":5,"question":49,"options":50,"answer":51,"related":52,"type":16,"origin":17,"createTime":18},317115542,"执行以下程序段a$= \"Abcdefghijk\"For i = 6 To 2 Step -2 y = Mid(a, i, i) x = Left(a, i) z = Right(a, i) z = UCase(x & y & z)Next iPrint z",[],[],[],{"id":54,"source":5,"question":55,"options":56,"answer":57,"related":58,"type":16,"origin":17,"createTime":18},317115543,"有下面程序代码:Private Sub Command1_Click() Dim Sign As Integer Sign = 1 a = 2 b = 3 For k = 1 To 5 c = a+ Sign * b a = b b = c Print c; Sign = -Sign Next kEnd Sub",[],[],[],{"id":60,"source":5,"question":61,"options":62,"answer":63,"related":64,"type":16,"origin":17,"createTime":18},317115544,"程序运行后,单击窗体,在输入对话框中依次输入25、26、35、45,输出结果为______.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 aEnd Sub",[],[],[],{"id":66,"source":5,"question":67,"options":68,"answer":69,"related":70,"type":16,"origin":17,"createTime":18},317115545,"下面程序的执行结果是______.Private Sub Command1_Click() a = 0 k = 1 Do While k \u003C 6 x = k ^ k ^ a k = k + 1 Print x; LoopEnd Sub",[],[],[],{"courseName":72,"courseImg":73,"workName":74,"workId":74,"count":75,"courseId":76},"VB程序设计","https:\u002F\u002Ftihai-oss-cloud.itihey.com\u002Fimg\u002Fffe4b30e0d8ce5e6ac9362db217e75c0.png","",0,"944d00051e8cfead9f632d91b25855a3"]