下列程序的功能是；将数据1，2，…，8写入顺序文件Num.txt中，请选择正确的程序段( )。 Private Sub Form_Click() Dim i As Integer Open "Num.txt" For Output As #1 For i=1 To 8 __________ Next i Close #1 End SubA．print #1,iB．input #1,iC．print #1D．input #1

下列程序的功能是将字符串“abcde”逆序打印出来。请填写空白处以完善程序。 Munction rev(str1)As String B = Mid(,1,1) If B =＂＂Then rev =＂＂ Else rev = rev(Mid(str1,2))+b End If End Function Private Sub Form_Click() old =＂abcde＂ Print rev(old) End Sub

（34）下列程序的功能是：将数据1,2,…,8写入顺序文件Num.txt中，请选择正确的程序段。 Private Sub For_Click() Dim i As Integer Open "Num.txt"For Output As #1 For i=1 To 8 Next i Close #1 End SubA.Print #1,i B.input #1,I C.Print #1 D.input #1

下列程序段的功能是，单击命令按钮后，将随机产生10个三位数，并将这些数写到C盘根目录下的datA.txt文件中。请填空。

Private Sub Command1_Click()

Dim a As Integer

Open【 】For Output As 100

Randomize

For i =1 To 10

a=100+Int(899*RnD) 【 】

Next i

Close 100

End Sub

下列程序的功能是：当x＜50时，y =0.8 xx;当50≤x≤100时，y=0.7 xx;当x＞100时,

Private Sub Command1_Click()

Dim x As Single

x = InputBox("请输入x的值" )

Select Case x

Case Is＜50

y=0.8 * x

Case 50 To 100

y=0.7 * x

【 】

Print "输入数据出界!"

End Select

Print x, y

End Sub

阅读程序：Private Sub Form_ Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print aEnd Sub 程序运行后，单击窗体，输出结果是______。

A．105

B．1

C．120

D．15

下列程序的功能是把顺序文件smtextl.txt的内容全部读入内存，并在文本框Textl中显示出来。请填空。

Private Sub Command1_Click()

Dim inData As String

Text1.Text=""

Open "smtext1.txt"【 】As【 】

Do While【 】

Input 2，inData

Text1.Text=Text1.Text & inData

Loop

Close 2

End Sub

以下程序需要实现的功能是：在C盘根目录下建立一个名为Students.txt的顺序文件。单击命令按钮后，输入4个学生的个人信息，包括name、sex和age，将这些信息写入文件中。请填空。

Private Sub Form_Click()

Open【 】For Output As 1

For i=1 To 4

name=InputBox("姓名")

age=InputBox("年龄")

sex=InputBox("性别")

Write【 】

Next i

Close 1

End Sub

下列程序的功能是单击窗体时在消息框中输出1000以内能同时被3、5和7整除的整数，请补充完整此程序：

Private Sub Form_Click()

sum＝0

For i＝1 To 1000

If______Then

sum＝sum+I

End If

Next I

MsgBox sum

End Sub

下列程序的功能是：将数据1，1，…，8写入顺序文件Num.txt中，请选择正确的程序段( )。

Private Sub Form_Click()

Dim i As Integer

Open"Num.txt"For Output As #1

For i=1 To 8

______

Next i

Close #1

End Sub

A．print#1,i

B．input#1,I

C．print#1

D．input#1

下面程序段的作用：在窗体上一个命令按钮。单击命令按钮后，将程序中字符串 "Welcome Home"中的字符全部大写输出，其后字符"Wel Back"全部小写输出。请填空。

Private Sub Command1_Click()

a = "Welcome Home";

b = "Wel Back"

c = 【 】+ LCase(B) Print c

End Sub

假定已经在菜单编辑器中建立了窗体的弹出式菜单，其顶级菜单的名称为a1，其“可见”属性为False，则程序运行后，可以同时响应鼠标左键单击和右键单击的事件过程是 ______。

A．Private Sub Form_ MouseDown (Button As Integer, _ Shift As Integer, X As Single, Y As SinglE)If Button = 1 And Button = 2 Then PopupMenu al End If End Sub

B．Private Sub Form_ MouseDown (Button As Integer, _ Shift As Integer, X As Single, Y As SinglE)PopupMenu a1 End Sub

C．Private Sub Form_ MouseDown (Button As Integer, _ Shift As Integer, X As Single, Y As SinglE)If Button = 1 Then PopupMenu a 1 End If End Sub

D．Private Sub Form_ MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As SinglE)If Button = 2 Then PopupMenu a 1 End If End Sub

设有如下程序； Private Sub Form_ Load() Show Text1.Text = " " Text1.SetFocus End Sub Private Sub Form_ MouseUp (Button As Integer, Shift As Integer, X As Single, Y As SinglE)Print “程序设计” End Sub Private Sub Text1_ KeyDown (KeyCode As Integer, Shift As Integer) Print "Visual Basic" End Sub程序运行后，如果在文本框中输入字母a(即直接按a键)，然后单击窗体，则在窗体上显示的内容是______。

A．Visual Basic

B．程序设计

C．Visual Basic程序设计

D．A程序设计

下列程序的功能是：将数据1,2,......,8写入顺序文件Num.txt中，请选择正确的程序段 Private Sub Form_Click() Dim i As Integer Open "Num.txt"For Output As #1 For i=1 To 8 ______ Next i Close #1 End SubA.print#1,i B.input#1,i C.print#1 D.input#1

下列程序段的功能为：单击窗体后，在D盘Temp目录下address.txt 文件中输入“张三，20，Male”。请填空。

Private Sub form_ click()

Dim name As String

Dim age As Integer

Dim sex As String

name = "张三": age = 20: sex = "Male"

Open "D:\temp\CodE．txt" For Append As 1

______1, name, age, sex

______

End Sub

下列程序的运行机结果是【 】。

Private Sub Form_ Click()

Dim k As Integer

n= 5

m= 1

k= 1

Do

m=m+2

k= k+1

Loop While k＜=n

Print m

End Sub

如下图所示，只执行下列程序后，有Text1.Text=Text1，文本框不能出现“*****”的程序是______。

A．Private Sub form_ Load() Text1. Text="*****"End Sub

B．Private Sub form_ Load() Text1. PasswordChar=“*”End Sub

C．Private Sub form_ Load() Text1. Visible="*****" End Sub

D．Private Sub form. Load() Text1. Text= String(5，"*")End Sub

设有以下程序：Private Sub Form_ Click() x=50 For i=1 To 4 y=InputBox(“请输入—个整数”) y=Val(y) If y Mod 5=0 Then a=a+ y x=y Else a=a+ x End If Next i Print aEnd Sub 程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为 ______。

A．100

B．50

C．120

D．70

在窗体上画一个文本框，名称为Textl，然后编写如下程序：

Private Sub Form_Load()

Open”d：＼temp＼dat．txt”For Output As1

Textl．Text=“”

End Sub

Private Sub Textl KeyPress(KeyAscii As Integer)

IfKeyAscii=13 Then

If UCase(Textl．Text)=【 】Then

Close1

End

Else

Write1，【 】

Textl．Text=…

End If

End If

End SUb

以上程序的功能是：在D盘temp文件夹下建立一个名为dat．txt的文件，在文本框中输入字符，每次按回车键都把当前文本框中的内容写入文件dat．txt，并清除文本框中的内容；如果输入“END”，则不写入文件，直接结束程序。请填空。

以下程序运行后的输出结果是______。 Private Sub Form_ Click() y=1 ：x=2 Print Iif(x＞=y，x，y) End Sub

A．0

B．1

C．2

D．3

下面一段程序的功能是，单击窗体弹出对话框。在对话框中输入一个文件名，窗体中输出该文件名的文件号。请填空。

Private Sub Form_ click()

filename = InputSox (“请输入文件名”)

Filecode =

Open filename For Output As Filecode

Print filename; “的文件号是”; Filecode

Close Filecode

End Sub

下列程序的功能是：将数据1，2，…，8写入顺序文件Num.txt中，请选择正确的程序段( )。 Private Sub Form_Click() Dim i As Integer Open "Num.txt" For Output As #1 For i=1 To 8 ______ Next i Close #1 End Sub

A．print #1,i

B．input #1,i

C．print #1

D．input #1

下面程序执行的结果是______。 Private Sub Form_ Click() A＄=“123”：B＄=“456” C=Val(A＄)+Val(B＄) Print C\100 End Sub

A． 123

B．3

C．5

D．579

下列程序的功能是：当x＜50时，y=0.8×x；当50≤x≤100时，y=0.7×x；当x＞100时，没有意义。请填空。

Private Sub Command1_Click()

Dim x AS Single

x=InputBox("请输入x的值!")

________

Case Is＜50

y=0.8*x

Case 50 To 100

y=0.7*K

__________

Print"输入的数据出界!"

End Select

Print x，y

End Sub

在窗体上画一个名为Command1的命令按钮和一个名为Text1的文本框，并把窗体的 KeyPreview 属性设置为True，然后编写如下代码： Dim SaveAll As String Private Sub Form_ Load () Show Text1.Text = " " TextSetFocus End Sub Private Sub Command1 Click() TextText= LCase(SaveAll) End Sub Private Sub Form_ KeyPress (KeyAscii As Integer) SaveAll = SaveAll + Chr(KeyAscii) End Sub程序运行后，在键盘上输入ABCDEFG，单击命令按钮，则文本框中显示的内容为 ______。

A．abodefg

B．不显示任何信息

C．ABCDEFG

D．出错