复制
收藏
提问
全网

请输入 18.[填空题] 运行如下程序后，输出结果为______。 Dim i As Integer, y As Integer For i = 3 To 15 Step 2 y = y + i i = i + 2 Next i Print i; y 第1空: 请输入 19.[填空题] 如果依次输入30,45,55,70,75,下列程序段的执行结果为______。 Dim c As Integer, k As Integer, d As Integer c = 70 For k = 11 To 15 x = InputBox("输入X的数值:") If x < c Then d = d + x: c = x Else d = d + c End If Next k Print d 第1空: 请输入 20.[填空题] 运行如下程序后，输出结果为________。 For m = 1 To 5 a = 0 For j = 1 To 5 a = 1 For k = 1 To 5 a = a + 3 Next k Next j Next m Print a 第1空: 请输入 21.[填空题] 执行下面的程序段，文本框Text1中显示的是_______。 Dim i As Integer, j As Integer i = 1 Do While i < 30 j = i + j i = i * (i +3) Loop Text1.Text = j 第1空: 请输入 22.[填空题] 执行下面的程序段，输出结果是_________。 Dim str1 As String, str2 As String str1 = "abc" str1 = UCase(str1) For i = 1 To 3 str2 = Chr(Asc(str1) + i) str1 = str1 & str2 Next i Print str1 第1空: 请输入 23.[填空题] 下面程序段中，在窗体上显示的结果为________。 Private Sub Command1_Click() Dim b As Integer, k As Integer b = 1 For k = 1 To 6 b = b * k If b >= 20 Then Exit For Else k = k + 3 End If Next k Print k, b End Sub 第1空: 请输入 24.[填空题] 阅读下面程序，当单击窗体后，窗体上输出的是___________。 Private Sub Form_Click() Dim i As Integer, j As Integer Dim k As Integer For i = 1 To 10 Step 3 For j = 1 To 10 Step 2 If j >= 5 Then i = i + 3: Exit For j = j + 1 k = k + 1 Next j If i > 8 Then Exit For Next i Print i; j; k End Sub 第1空: 请输入 25.[填空题] 阅读下面程序，当单击窗体后，窗体上输出的是________。 Private Sub Form_Click() Dim i As Integer, k As Integer Dim a As Integer, b As Integer a = 5: b = 2 For i = 1 To a + b Step b i = i + 1 a = a + i b = b + i k = k + 2 Next i Print a; b; k End Sub 第1空:

5月前
全网
文档
学术
百科
知识库
时间不限
自动
来源0

理解问题请输入 18.[填空题] 运行如下程序后，输出结果为______。 Dim i As Integer, y As Integer For i = 3 To 15 Step 2 y = y + i i = i + 2 Next i Print i; y 第1空: 请输入 19.[填空题] 如果依次输入30,45,55,70,75,下列程序段的执行结果为______。 Dim c As Integer, k As Integer, d As Integer c = 70 For k = 11 To 15 x = InputBox("输入X的数值:") If x < c Then d = d + x: c = x Else d = d + c End If Next k Print d 第1空: 请输入 20.[填空题] 运行如下程序后，输出结果为________。 For m = 1 To 5 a = 0 For j = 1 To 5 a = 1 For k = 1 To 5 a = a + 3 Next k Next j Next m Print a 第1空: 请输入 21.[填空题] 执行下面的程序段，文本框Text1中显示的是_______。 Dim i As Integer, j As Integer i = 1 Do While i < 30 j = i + j i = i * (i +3) Loop Text1.Text = j 第1空: 请输入 22.[填空题] 执行下面的程序段，输出结果是_________。 Dim str1 As String, str2 As String str1 = "abc" str1 = UCase(str1) For i = 1 To 3 str2 = Chr(Asc(str1) + i) str1 = str1 & str2 Next i Print str1 第1空: 请输入 23.[填空题] 下面程序段中，在窗体上显示的结果为________。 Private Sub Command1_Click() Dim b As Integer, k As Integer b = 1 For k = 1 To 6 b = b * k If b >= 20 Then Exit For Else k = k + 3 End If Next k Print k, b End Sub 第1空: 请输入 24.[填空题] 阅读下面程序，当单击窗体后，窗体上输出的是___________。 Private Sub Form_Click() Dim i As Integer, j As Integer Dim k As Integer For i = 1 To 10 Step 3 For j = 1 To 10 Step 2 If j >= 5 Then i = i + 3: Exit For j = j + 1 k = k + 1 Next j If i > 8 Then Exit For Next i Print i; j; k End Sub 第1空: 请输入 25.[填空题] 阅读下面程序，当单击窗体后，窗体上输出的是________。 Private Sub Form_Click() Dim i As Integer, k As Integer Dim a As Integer, b As Integer a = 5: b = 2 For i = 1 To a + b Step b i = i + 1 a = a + i b = b + i k = k + 2 Next i Print a; b; k End Sub 第1空:

已完成理解「请输入 18.[填空题] 运行如下程序后，输出结果为______。 Dim i As Integer, y As Integer For i = 3 To 15 Step 2 y = y + i i = i + 2 Next i Print i; y 第1空: 请输入 19.[填空题] 如果依次输入30,45,55,70,75,下列程序段的执行结果为______。 Dim c As Integer, k As Integer, d As Integer c = 70 For k = 11 To 15 x = InputBox("输入X的数值:") If x < c Then d = d + x: c = x Else d = d + c End If Next k Print d 第1空: 请输入 20.[填空题] 运行如下程序后，输出结果为________。 For m = 1 To 5 a = 0 For j = 1 To 5 a = 1 For k = 1 To 5 a = a + 3 Next k Next j Next m Print a 第1空: 请输入 21.[填空题] 执行下面的程序段，文本框Text1中显示的是_______。 Dim i As Integer, j As Integer i = 1 Do While i < 30 j = i + j i = i * (i +3) Loop Text1.Text = j 第1空: 请输入 22.[填空题] 执行下面的程序段，输出结果是_________。 Dim str1 As String, str2 As String str1 = "abc" str1 = UCase(str1) For i = 1 To 3 str2 = Chr(Asc(str1) + i) str1 = str1 & str2 Next i Print str1 第1空: 请输入 23.[填空题] 下面程序段中，在窗体上显示的结果为________。 Private Sub Command1_Click() Dim b As Integer, k As Integer b = 1 For k = 1 To 6 b = b * k If b >= 20 Then Exit For Else k = k + 3 End If Next k Print k, b End Sub 第1空: 请输入 24.[填空题] 阅读下面程序，当单击窗体后，窗体上输出的是___________。 Private Sub Form_Click() Dim i As Integer, j As Integer Dim k As Integer For i = 1 To 10 Step 3 For j = 1 To 10 Step 2 If j >= 5 Then i = i + 3: Exit For j = j + 1 k = k + 1 Next j If i > 8 Then Exit For Next i Print i; j; k End Sub 第1空: 请输入 25.[填空题] 阅读下面程序，当单击窗体后，窗体上输出的是________。 Private Sub Form_Click() Dim i As Integer, k As Integer Dim a As Integer, b As Integer a = 5: b = 2 For i = 1 To a + b Step b i = i + 1 a = a + i b = b + i k = k + 2 Next i Print a; b; k End Sub 第1空:」

展开阅读网页

  1. 第1空: 17 57
  2. 第1空: 70
  3. 第1空: 1
  4. 第1空: 31
  5. 第1空: "ABCCBDE"
  6. 第1空: 7 120
  7. 第1空: 9 5 3
  8. 第1空: 37 38 12
更专业一些
转笔记
专业
请输入 18.[填空题] 运行如下程序后，输出结果为______。 Dim i As Integer, y As Integer For i = 3 To 15 Step 2 y = y + i i = i + 2 Next i Print i; y 第1空: 请输入 19.[填空题] 如果依次输入30,45,55,70,75,下列程序段的执行结果为______。 Dim c As Integer, k As Integer, d As Integer c = 70 For k = 11 To 15 x = InputBox("输入X的数值:") If x < c Then d = d + x: c = x Else d = d + c End If Next k Print d 第1空: 请输入 20.[填空题] 运行如下程序后，输出结果为________。 For m = 1 To 5 a = 0 For j = 1 To 5 a = 1 For k = 1 To 5 a = a + 3 Next k Next j Next m Print a 第1空: 请输入 21.[填空题] 执行下面的程序段，文本框Text1中显示的是_______。 Dim i As Integer, j As Integer i = 1 Do While i < 30 j = i + j i = i * (i +3) Loop Text1.Text = j 第1空: 请输入 22.[填空题] 执行下面的程序段，输出结果是_________。 Dim str1 As String, str2 As String str1 = "abc" str1 = UCase(str1) For i = 1 To 3 str2 = Chr(Asc(str1) + i) str1 = str1 & str2 Next i Print str1 第1空: 请输入 23.[填空题] 下面程序段中，在窗体上显示的结果为________。 Private Sub Command1_Click() Dim b As Integer, k As Integer b = 1 For k = 1 To 6 b = b * k If b >= 20 Then Exit For Else k = k + 3 End If Next k Print k, b End Sub 第1空: 请输入 24.[填空题] 阅读下面程序，当单击窗体后，窗体上输出的是___________。 Private Sub Form_Click() Dim i As Integer, j As Integer Dim k As Integer For i = 1 To 10 Step 3 For j = 1 To 10 Step 2 If j >= 5 Then i = i + 3: Exit For j = j + 1 k = k + 1 Next j If i > 8 Then Exit For Next i Print i; j; k End Sub 第1空: 请输入 25.[填空题] 阅读下面程序，当单击窗体后，窗体上输出的是________。 Private Sub Form_Click() Dim i As Integer, k As Integer Dim a As Integer, b As Integer a = 5: b = 2 For i = 1 To a + b Step b i = i + 1 a = a + i b = b + i k = k + 2 Next i Print a; b; k End Sub 第1空:
不在提醒

更专业内容正在努力生成中
知识树
请输入 18.[填空题] 运行如下程序后，输出结果为______。 Dim i As Integer, y As Integer For i = 3 To 15 Step 2 y = y + i i = i + 2 Next i Print i; y 第1空: 请输入 19.[填空题] 如果依次输入30,45,55,70,75,下列程序段的执行结果为______。 Dim c As Integer, k As Integer, d As Integer c = 70 For k = 11 To 15 x = InputBox("输入X的数值:") If x < c Then d = d + x: c = x Else d = d + c End If Next k Print d 第1空: 请输入 20.[填空题] 运行如下程序后，输出结果为________。 For m = 1 To 5 a = 0 For j = 1 To 5 a = 1 For k = 1 To 5 a = a + 3 Next k Next j Next m Print a 第1空: 请输入 21.[填空题] 执行下面的程序段，文本框Text1中显示的是_______。 Dim i As Integer, j As Integer i = 1 Do While i < 30 j = i + j i = i * (i +3) Loop Text1.Text = j 第1空: 请输入 22.[填空题] 执行下面的程序段，输出结果是_________。 Dim str1 As String, str2 As String str1 = "abc" str1 = UCase(str1) For i = 1 To 3 str2 = Chr(Asc(str1) + i) str1 = str1 & str2 Next i Print str1 第1空: 请输入 23.[填空题] 下面程序段中，在窗体上显示的结果为________。 Private Sub Command1_Click() Dim b As Integer, k As Integer b = 1 For k = 1 To 6 b = b * k If b >= 20 Then Exit For Else k = k + 3 End If Next k Print k, b End Sub 第1空: 请输入 24.[填空题] 阅读下面程序，当单击窗体后，窗体上输出的是___________。 Private Sub Form_Click() Dim i As Integer, j As Integer Dim k As Integer For i = 1 To 10 Step 3 For j = 1 To 10 Step 2 If j >= 5 Then i = i + 3: Exit For j = j + 1 k = k + 1 Next j If i > 8 Then Exit For Next i Print i; j; k End Sub 第1空: 请输入 25.[填空题] 阅读下面程序，当单击窗体后，窗体上输出的是________。 Private Sub Form_Click() Dim i As Integer, k As Integer Dim a As Integer, b As Integer a = 5: b = 2 For i = 1 To a + b Step b i = i + 1 a = a + i b = b + i k = k + 2 Next i Print a; b; k End Sub 第1空:
VB编程中For循环的用法
VB中如何使用Next关键字
VB程序设计中变量的作用域
在线客服