填空题

下列程序实现的功能是:当在窗体上单击时,将在窗体上输出c:\a1.txt文件中的所有小写字母。 Private Sub Form_Click() Dim Ch As String*1 Open"c:\a1.txt"For Input As #10 Do While 【13】 Ch=Input(1,#10) If 【14】 Then Print Ch; End If Loop 【15】 End Sub

【参考答案】

[13]Not EOF(10) [14]Ch>="a" And Ch<="z" [15]Close #10
<上一题 目录 下一题>
热门 试题

填空题
随机生成的10个两位数,求出它们的总和和平均数。产生两位数采用的算法如下:分别产生个位数(0~9)和十位数(1~9),然后十位数乘10再加上个位数即得到一个两位数。说明:在窗体上有一个Command1按钮,单击它将计算10个随机数的和以及平均数,并在窗体上输出平均数。Private Sub Command1_Click()Dim M As Integer,N As Integer,Sum As IntegerDim I As Integer, K As Integer,Ave As SingleSum=0RandomizeFor I=1 To 10M=Int(9*Rnd)+1N= 【10】 K=M*10+NSum= 【11】 Next IAver= 【12】 Print AverEnd Sub
填空题
数据库管理系统提供了统一的数据保护功能,以保证存储在数据库中的数据安全、可靠、正确、有效。数据保护也称为数据控制,主要包括数据的安全性、完整性、并发控制和 【5】 。
相关试题
  • 以下程序的功能是每隔一定的时间在窗体的文...