1. 阅读下面的程序段: a=0 For i=1 To 3 For j=1 To i For k=j To 3 a=a+1 Next k Next j Next i 执行上面的程序段后,a的值为______。
A.3
B.9
C.14
D.21
A B C D
C
[解析] 本题考查三重循环,当i=1时,j=1,则For k=j To 3执行3次,所以a=3,当i=2时,For j=1 To i执行2次For k=j To 3执行3次,所以总共执行5次,所以此时a=3+5=8当i=3时,For i=1 To i执行3次,For k=j To 3执行3次,所以总共执行了6次,所以a=3+5+8=14次。
5. 有如下函数过程: Function lj(x As Integer)As Long Dims As Long Dimi As Integer s=0 Fori=1 To x s=s+i Nexti lj=s End Funcfion 在窗体上添加一个命令按钮,名为Commandl,编写事件过程调用该函数,输出结果为 。 Private Sub Commandl_lick() Dimi As Integer Dim sum As Long Fori=1 To 5 sum=sum+lj(i) Nexti Print sum End Sub
7. 下列程序执行后,变量x的值为。 Dim a,b,c,d As Single Dim x As Single a=10 b=30 c=400 If b>a Then d=a:a=b:b=d End If If b>c Then x=b Else If a>c Then x=c Else x=a End If
A.10
B.30
C.400
D.430
A B C D
B
[解析] 程序操作过程如下: 程序首先执行If b>a Theh语句,条件为真执行d=a:a=b:b=d语句,执行后d=10,a=30,b=10;然后执行If b>c Then语句,条件不成立,因此执行Else If a>c Then语句;条件不成立,因此执行Else后面的x=a语句,执行后x=30。
9. 阅读下列程序: Private Sub Command1_Click() Dim i As Integer,k As Integer k=2 For i=1 To 3 Print H(k); Next i End Sub Function H(j As Integer) Static b a=0 a=a+1 b=b+1 H=a*b+j End Funmion 单击命令按钮,执行程序,输出结果是。
17. 设窗体上有一个文本框Text1和一个命令按钮Command1,并有以下事件过程: Private Sub Command1_Click() Dim s As String,ch As String s="" For k=1 To Len(Text1) ch=Mid(Text1,k,1) s=ch+s Next k Text1.Text=s End Sub 程序执行时,在文本框中输入“Basic”,然后单击命令按钮,则Text1中显示的是______。
18. 设在当前目录下有一个名为“file.txt”的文本文件,其中有若干行文本。编写如下程序: Private Sub Command1_Click() Dim ch$, ascii As Integer Open "file. txt" For Input As #1 While Not EOF(1) Line Input #1, ch ascii=toascii(ch) Print ascii Wend Close #1 End Sub Private Function toascii(mystr As String)As Integer n=0 For k=1 To Len(mystr) n=n+Asc(Mid(mystr, k, 1)) Next k toascii=n End Function 程序的功能是______。
29. 窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据: Private Sub Command1_Click() Dim s1 As String, s2 As String Open "c:\d4.dat" For Append As #3 Line Input#3, s1 Line Input#3, s2 Text1.Text=s1+s2 Close End Sub 该程序运行时有错误,应该进行的修改是______
A.将Open语句中的ForAppend改为ForInput
B.将LineInput改为Line
C.将两条Line Input语句合并为Line Input #3, s1, s2
D.将Close语句改为Close #3
A B C D
A
[解析] Visual Basic程序中关于文件的操作,主要是先打开一个文件,然后对这个文件进行读或写的操作,操作完成后,关闭这个文件。打开文件的基本格式为:Open FileName For Mode As #FileNumber。打开方式主要有Output、Append、Input、Random等几种方式。Output、Append、Input方式打开的文件进行的读写操作都是以顺序方式进行的,其中Output、Append打开的文件主要用来输出数据,与Print#、Write#等方法配合使用;以Input方式打开的文件主要用来读入数据,它与Input#、Line Input#语句配合使用。
30. 在窗体上画一个名称为command1的命令按钮,并编写如下事件过程: Private Sub Command1_Click() x=1 s=0 For i=1 To 5 x=x/i s=s+x Next Print s End Sub 该事件过程的功能是计算______。 A.S=1+2+3+4+5 B. C. D.
36. 在窗体上画一个命令按钮,然后编写如下程序: Sub S1(ByVal x As Integer,ByVal y As Integer) Dim t As Integer t=x x=y y=t End Sub Private Sub Command1_Click() Dim a As Integer,b As Integer a=10 b=30 S1 a,b Print"a="; a; "b="; b End Sub 程序运行后,单击命令按钮,输出结果是______。