填空题

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

【参考答案】

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

(↓↓↓ 点击下方‘点击查看答案’看完整答案、解析 ↓↓↓)

<上一题目录下一题>

热门试题

填空题

下列程序的功能是：当发生窗体的单击事件后，将在窗体上显示“1!+2!+3!+…+10!”的和。 Private Sub Form_Click() Dim s As Long,i As Integer s=0 For i=1 To 10 s=s+ 【11】 Next i Print s End Sub Private Function fact(ByVal n As Integer)As Long Dim i As Integer,f As Long f=1 For i=2 To n f=f*i Next i 【12】 End Function

填空题

在窗体上画一个名称为Combo1的组合框，画两个名称分别Labe11和Labe12及Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按(Enter)键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Labe12中给出提示“已成功添加输入项”，如图20-3所示；如果存在，则在Labe12中给出提示“输入项已在组合框中”。请在【8】、【9】和【10】处将程序补充完整。 Private Sub Combo1 【8】 (KeyAscii As Integer) If KeyAscii=13 Then For i=0 To Combo1；ListCount-1 If Combo1．Text= 【9】 Then Labe12．Caption= 输入项已在组合框中 Exit Sub End If Next i Labe12．Caption= 已成功添加输入项 Combo1．【10】 Combo1．Text End If End Sub

相关试题