题目内容

编写如下程序：Private Sub Command1_Click()Dim x As Integer, y As Integerx = 1: y = 1Doy = x * yIf y > 10 ThenPrint x, yExit DoElsex = x + 3End IfLoop While x <= 10End Sub运行程序，输出结果为______。

查看答案

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

更多问题

窗体上有一个名为Command1的命令按钮，编写如下事件过程：Private Sub Command1_Click()i = 0Do While i < 8For j = 1 To in = n + 1Nexti = i + 1LoopPrint nEnd Sub运行程序，单击命令按钮，则输出结果是______。

有如下程序：Private Sub Form_Click()Dim s As Integer, p As Integerp = 1For i = 1 To 5For j = 1 To is = s + jNext jp = p * sNext iPrint pEnd Sub程序运行后，单击窗体，则输出结果是______。

编写如下程序：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的值为______。