vb实验九、十

一: 读入: Dim i%

Text1.text=””

Open app.path &”\\grade.txt” for input as #1 For i = 1 to 30 Input #1,a(i)

Text1.text1=text1.text& a(i)&space(2) Next i Close i 统计:

Dim sum%,i% Sum=0

For i =1 to 30

If a(i)=100 then Sum=sum+1 End if Next i

Text2.text=sum 二: 打开:

Dim s as string Text1.text=””

Open app.path&”\\infile.txt” for input as #1 Do while not eof(1) Line input #1,s

Text1.text=text1.text & s & vbcrlf Loop

Close #1

保存: Dim a%

a = Text1.Text

Text1.Text = UCase(a)

Open app.path& “\\outfile.txt” for output as #1 Print #1,text1.text Close#1

三:

读入整数: Dim i%

Open App.Path & \For i = 1 To 20 Input #1, a(i)

Text1.Text = Text1.Text & a(i) & Space(2) Next i

选择整数: Dim i%

For i = 1 To 20

If a(i) Mod 3 = 0 Then

Text2.Text = Text2.Text & a(i) & Space(2) End If Next i 四: 读入: Dim s$

Text1.Text = \

Open App.Path & \Do While Not EOF(1) Line Input #1, s

Text1.Text = Text1.Text & s & vbCrLf Loop 大写: Dim s1%

For i = 1 To Len(Text1.Text)

If Mid(Text1.Text, i, 1) >= \ s1 = s1 + 1 End If Next i

Text2.Text = Str(s1) 小写: Dim s2%

For i = 1 To Len(Text1.Text)

If Mid(Text1.Text, i, 1) >= \ s2 = s2 + 1 End If Next i

Text3.Text = Str(s2)

五:

Private sub drive1_change() Dir1.Path = Drive1.Drive End sub

Private sub dir1_change() File1.Path = Dir1.Path End sub

Private sub file1_click() Dim s$

If Right(File1.Path, 1) = \ Then s = File1.Path + File1.FileName Else

s = File1.Path + \End If

Text1.Text = s

以下题目不是书上的:

1.Dim s$

Open App.Path & \ s = Input(LOF(1), #1) Text1.Text = s Close #1

Open App.Path & \ Print #1, Text2.Text Close #1

2.Dim i%

Open App.Path & \ For i = 1 To 10 Input #1, a(i)

Text1.Text = Text1.Text & a(i) & Space(2) Next i

Close #1

For i = 1 To 10

If Left(a(i), 1) = \张\黄\ Text2.Text = Text2.Text & a(i) & Space(1) End If Next i

Open App.Path & \ Print #1, Text2.Text Close #1 3.

1.Text1.Locked = True fsave.Enabled = False

Text1.Locked = False fsave.Enabled = True 2.Text1.Text = \

Text1.Text = \计算机等级考试\

联系客服:779662525#qq.com(#替换为@) 苏ICP备20003344号-4