> Print#1,Text1.Text Print#1,Text1.Text
Close#1 Close#1
End Sub End Sub
(27)为计算1+3+5+……+99的值,某人编程如下
k=1
s=0
While k<=99
k=k+2 : s=s+k
Wend
Print s
在调试时发现运行结果有错误,需要修改。下列错误原因和修改方案中正确的是(D)
A)While …Wend循环语句错误,应改为For k=1 To 99 …Next k
B)循环条件错误,应改为Whlie k<99
C)循环前的赋值语句k=1错误,应改为k=0
D)循环中两条赋值语句的顺序错误,应改为s=s+k : k=k+2
(28)下面程序在调试时出现了死循环
Private Sub Command1_Click()
n=InputBox(“请输入一个整数”)
Do
If n Mod 2=0 Then
n=n+1
Else
n=n+2
Else If
Loop Until n=1000
End Sub
下面关于死循环的叙述中正确的是(D)
A)只有输入的n是偶数时才会出现死循环,否则不会
B)只有输入的n是奇数时才会出现死循环,否则不会
C)只有输入的n是大于1000的整数时才会出现死循环,否则不会
D)输入任何整数都会出现死循环 (29)在窗体上有1个名称为CommonDialog1的通用对话框和1个名称为Command1的命令按钮,以及其他一些控件。要求在程序运行时,单击Command1按钮,则显示打开文件对话框,并在选择或输入了1个文件名后,就可以打开该文件。以下是Command1_Click事件过程的两种算法
算法1:
Private Sub Command1_Click()
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As#1
End Sub
算法2:
Private Sub Command1_Click()
CommonDialog1.ShowOpen
IfCommonDialog1.FileName<>””Then
Open CommonDialog1.FileName For Input As#1
End If
End Sub
下面关于这两种算法的叙述中正确的是(B)
A) 显示打开文件对话框后若未选择或输入任何文件名,则算法2会出错,算法1不会
B) 显示打开文件对话框后若未选择或输入任何文件名,则算法1会出错,算法2不会
C) 两种算法的执行结果完全一样
D) 算法1允许输入的文件名中含有空格,而算法2不允许
(30)窗体上有1个名称为List的列表框,其中已经输入了若干个项目(如图所示):还有2个文本框,名称分别为Text1、Text2, 1个名称为 Command1的命令按钮,并有以下程序
Private Sub Command1_Click()
Dim str As String, s As String, k As Integer
s=Text1
Str=””
For k=List1.ListCount-1 to 0 Step-1
上一页 [1] [2] [3] [4] [5] [6] [7] [8] 下一页
责任编辑:小草