问答题库

当前位置: 计算机等级考试题库 > BASIC题库

问题描述:

[填空题] 下列程序实现的功能是:当在窗体上单击时,将随机产生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 Integer
Dim j As Integer
Dim k As Integer
k=0
For 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 Print
Next 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”。

试题分享:

相关考题