题目内容

设有如下程序段：x = 2For i = 1 To 20 Step 3x = x + iNext i运行以上程序后，x的值是______。

查看答案

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

更多问题

执行以下程序段a$= "Abcdefghijk"For i = 6 To 2 Step -2y = Mid(a, i, i)x = Left(a, i)z = Right(a, i)z = UCase(x & y & z)Next iPrint z

有下面程序代码：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