题目内容

有下面程序代码：Private Sub Command1_Click()Dim Sign As IntegerSign = 1a = 2b = 3For k = 1 To 5c = a+ Sign * ba = bb = cPrint c;Sign = -SignNext kEnd Sub

查看答案

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

更多问题

程序运行后，单击窗体，在输入对话框中依次输入25、26、35、45，输出结果为______。Private Sub Form_Click()x = 50For i = 1 To 4y = InputBox("请输入一个整数")y = Val(y)If y Mod 5 = 0 Thena = a + yx = yElsea = a + xEnd IfNext iPrint aEnd Sub

下面程序的执行结果是______。Private Sub Command1_Click()a = 0k = 1Do While k < 6x = k ^ k ^ ak = k + 1Print x;LoopEnd Sub

编写如下程序：Private Sub Command1_Click()Dim x As Integer, y As Integerx = 1y = 1Doy = x * yIf y > 10 ThenExit DoElsex = x + 2End IfLoop Until x <= 10Print x; yEnd Sub程序运行后，单击命令按钮Command1，输出结果为______。

编写如下程序：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运行程序，输出结果为______。