VB上机复习整~~~~.docVIP

1．【考点分析】本题考点有：命令按钮的Name和Caption属性，文本框的Text属性，Format()函数，回车换行常数vbCrL，For循环语句，Mid()函数，Select Case语句，Do While语句，Len 函数，连接符以及文件操作。 【解题思路】Format()函数用于按指定格式返回字符串。 在统计按钮的事件过程中，可用For循环语句和Mid()函数将文本框中的字符逐一取出，通过Select Case语句分别判断其题为英文字母i，j，k，l，m或n(不区分大小写)，并分别将结果统计到6个变量中。最后在文本框中按指定的格式显示统计结果，为使每个结果各占一行，可在每个结果后面加一个回车换行符vbCrLf。 【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.151和表3.152。 步骤2：分析并编写程序代码。 程序提供代码 程序结束 参考答案 Option Explicit Private Sub Command1 Click() Dim a As String Dim s As String Open App.Path \in5.txt For Input As #1 Do While Not EOF(1) a ＝ Input(1, #1) s ＝ s a Loop Close #1 Text1 ＝ s End Sub Pri