139主题

BASIC:下列程序实现的功能是:当在窗体上单击时,将随机产生100个3位数,并把它们写到D盘根目录下的文件myfile1....

[填空题] - 考题描述:

下列程序实现的功能是:当在窗体上单击时,将随机产生100个3位数,并把它们写到D盘根目录下的文件myfile1.Dat中。 Private Sub Form_Click() Dim k As Integer Open 【13】 Randomize For i=1 To 10k=100+Int(899*Rnd) 【14】 Next i 【15】 End Sub

编写如下两个事件过程。 Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer)Print Chr(KeyAscii) End Sub 在一般情况下(即不按住Shift键和锁定大写键时)运行程序,如果按“A”键,则程序输出的结果是语句PopupMenu PMENU,4 Or 2,,,PMENU3K中: 其中PMeNU表示 【14】 23 有如下程序段,该程序段循环的次数是______。Dim i As IntegerDim j As IntegerDim k As Integerk=0For i = 0 To 10 Step 3 For j = 1 To 5 If j > 3 Then k = k + 4: Exit For k=k+1 Print k Next j If i > 8 Then Exit For Next i以下程序用宋输出20个在开区间(10,87)中的随机整数R,每行输出4个整数。请完善下列程序。 Private Sub Command1_Click()For I = 1 To 10 R = 【9】 Print R; If I Mod 4=0 Then PrintNext I End Sub在Visual Basic中,用于管理文件系统的3个控件是文件列表框、目录列表框和 【10】 。

参考答案:

[AC]\"d:myfilel.dat\" For Random As #A0 [AD]Put#A0,i,k[AE]Close #A0

问题解析:

要使用文件,首先必须打开文件,本题没有说明该文件是随机文件还是顺序文件,因此用随机文件和顺序文件均可以,本题以随机文件处理为例。故[13]应填打开文件的语句,为“"d:myfilel.dat" For Random As #10”。打开文件后,本题通过一个For循环向文件中写入数,该循环执行了10次,每一次产生一个三位数,并把该数写到文件中去。向随机文件写入数据要用Put语句,故[14]处应填“Put #10,i,k”。文件读写完毕后,应关闭文件,所以[15]处应填“Close #10”。

相关题目