填空题

下列程序段的功能是，单击命令按钮后，将随机产生10个三位数，并将这些数写到C盘根目录下的data.txt文件中。请填空。 Private Sub Command1_Click() Dim a As Integer Open 【9】 For Output As #100 Randomize For i =1 To 10 a=100+Int(899*Rnd) 【10】 Next i Close #100 End Sub

【参考答案】

"d:\datalll.txt" Write #A00,a
<上一题 目录 下一题>
热门 试题

填空题
下列程序段的作用是控制窗体的显示与隐藏。请填空。Private Sub Form_Click()Dim msg As IntegerMe. 【5】 MsgBox 单击Ok显示窗体 Form1. 【6】 End Sub
填空题
下列程序的功能是，单击命令按钮时随机生成15个100以内的正整数，放到3×5的数组中，找出该数组中最大的元素，并指出该元素的行标和列标。请填空。Option Base 1Private Sub Command1_Click()Dim a(1 To 3, 1 To 5) As Integer, n As Integer, m As IntegerDim maximum As Integer, max n As Integer, max_m As IntegerRandomizeFor m=1 To 3For n = 1 To 5a(m, n)= 【3】 Next nNext mmaximum＝a(1, 1)max n=1 : max m=1For i = 1 To 3For j=1 To 5If 【4】 Thenmaximum=a(i, j)max m=imax_n=jEnd IfNext jNext iPrint maximum, max m, max nEnd Sub
相关试题