填空题

下列程序段的功能是，单击命令按钮后，将随机产生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

<上一题目录下一题>

热门试题

填空题

在Visual Basic中，实参传递给形参有两种方式，【7】方式可以通过改变过程中的相应的参数来改变实参变量的值；而【8】被调用过程中改变了这个形参的值，但对应的实参的值并不改变。

填空题

下列程序的功能是，单击命令按钮时随机生成15个100以内的正整数，放到3×5的数组中，找出该数组中最大的元素，并指出该元素的行标和列标。请填空。 Option Base 1 Private Sub Command1_Click() Dim a(1 To 3, 1 To 5) As Integer, n As Integer, m As Integer Dim maximum As Integer, max n As Integer, max_m As Integer Randomize For m=1 To 3 For n = 1 To 5 a(m, n)= 【3】 Next n Next m maximum＝a(1, 1) max n=1 : max m=1 For i = 1 To 3 For j=1 To 5 If 【4】 Then maximum=a(i, j) max m=i max_n=j End If Next j Next i Print maximum, max m, max n End Sub

相关试题