题目内容

执行以下程序段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

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