编写如下事件过程: Option Explicit Private Sub Form_Click() Dim Str As String, I As Integer Open "examp" For Output A

admin2009-02-13  36

问题 编写如下事件过程:    Option Explicit    Private Sub Form_Click()       Dim Str As  String, I As  Integer       Open "examp" For Output As 1       For I=1 To 5          Str=Chr(I+64)          Print #1,Str;       Next I       Close  1       Open”examp’,For lnput AS 2       Str=Input(10,#2)       Print Str;       Close 2    End Sub    程序运行后,单击窗体,则窗体上显示的内容是

选项 A、ABCDE
B、96
C、65
D、abcde

答案1

解析 利用For循环依次将字母ABCDE分别写到examp文件中,然后再用Input函数一次将10个字母读出,并显示在屏幕上。
转载请注明原文地址:https://jikaoti.com/ti/uTq0FFFM
0

最新回复(0)