题目内容

编写如下程序：Private Sub Command1_Click()Dim num As IntegerDim k AsInteger, n As Integernum =InputBox("请输入一个正整数:")k = numn = 3DoDo While num Mod n = 0Print n;num = num / nLoopn = n + 1Loop Until n > k / 2End Sub程序运行后，单击命令按钮Command1，并输入数值30，则输出结果为______。

查看答案

搜索结果不匹配？点我反馈

更多问题

设有如下的程序段n = 0For i = 1 To 4For j = 1 To iFor k = j To 4n = n + 1Next kNext jNext iPrint n执行上面的程序段后，n的值为______。

运行如下程序后，输出结果为______。a = 0For j = 1 To 30 Step 2a = a + j mod 5Next jPrint a

如果依次输入30,45,55,70,75,下列程序段的执行结果为______。Dim c As Integer, k As Integer, d As Integerc = 70For k = 11 To 15x = InputBox("输入X的数值:")If x < c Thend = d + x: c = xElsed = d + cEnd IfNext kPrint d

运行如下程序后，输出结果为______。Dim i As Integer, y As IntegerFor i = 3 To 15 Step 2y = y + ii = i + 2Next iPrint i; y