填空题

下列程序的功能是：将数据1，2，…，10写入顺序文件Base．txt中，请填空。
　　Private Sub Form_Click()
　　　Dim i As Integer
　　　Open　【11】　 As #1
　　　For i=1 To 10
　　　　　　【12】　
　　　Next i
　　　Close #1
　　End Sub

【参考答案】

【11】 “Base．txt”For Output
【12】Print #1，i

<上一题目录下一题>

热门试题

填空题

下面的程序用于根据文本框Test中输入的内容进行以下处理：若Text为1，则打印“您的成绩为优秀！”；若Text为2，则打印“您的成绩为良好!”；若Text为3，则打印“您的成绩为一般”；否则打印“您的成绩一般以下!”，请填空。 Private Sub Command1_Click( ) Selct Case Val(Text1.Text) Case 【13】 Print 您的成绩为优秀！ Case 【14】 Print 您的成绩为良好！ Case 【15】 Print 您的成绩为一般！ Case Else Print 您的成绩为一般以下！ End Select End Sub

填空题

在一个窗体上有两个命令按钮，cmdMax 和 cmdMin。单击cmdMax时，窗体上显示“字体由小变大”，字号每次增加2；单击cmdMin时，窗体上显示“字体由大变小”，字号每次减小2。请填空。 Private Sub Form_Load() Forml．Caption =“字体变化示范” cmdMax．Caption=“字体变大” cmdMin．Caption=“字体变小” End Sub Private Sub cmdMax_Click() 【9】 Forml．Print”字体由小变大” End Sub Private Sub cmdMin_Click() 【10】 Forml．Print“字体由大变小” End Sub

相关试题