UC知道VB高手帮小弟我做几道关于文件读写的题啊..
来源：百度知道 编辑：UC知道 时间：2024/06/10 16:25:24
1、文本信息解密：打开C盘上的一个TXT，编程读入文件，将TXT里的信息（英文）从尾到头排列，显示在TEXT框里
2、新建一个文件命名为data1.txt，存于C盘根目录，在文件中写入500个随机整数（绝对值范围为320-640），正负数随机出现，而且要求正负数个数等量
3、打开C盘novel.txt,统计每行“的”出现的次数
4、打开C盘zhishu.txt文件，内容是1-2000质数表，把质数表读入到内存中，对给定的一个偶数M，找出形如M=P+Q的P,Q
还有两道绘图：
1、画正五边形和五角星
2、PRINT如下图案
***
*****
*******
*****
***
做出其中4道以上的小弟奉上100分啊~急需..多谢了
画图第二个好像显示不出来，是类似六边形的图案
2、新建一个文件命名为data1.txt，存于C盘根目录，在文件中写入500个随机整数（绝对值范围为320-640），正负数随机出现，而且要求正负数个数等量
3、打开C盘novel.txt,统计每行“的”出现的次数
4、打开C盘zhishu.txt文件，内容是1-2000质数表，把质数表读入到内存中，对给定的一个偶数M，找出形如M=P+Q的P,Q
还有两道绘图：
1、画正五边形和五角星
2、PRINT如下图案
***
*****
*******
*****
***
做出其中4道以上的小弟奉上100分啊~急需..多谢了
画图第二个好像显示不出来，是类似六边形的图案
1、文本信息解密：打开C盘上的一个TXT，编程读入文件，将TXT里的信息（英文）从尾到头排列，显示在TEXT框里
Private Sub Command1_Click()
Dim s As String
Dim s1 As String
Open "c:\1.txt" For Input As #1
If (Not EOF(1)) Then
Line Input #1, s
Do While (Not EOF(1))
Line Input #1, s1
s = s & vbCrLf & s1
Loop
End If
Close #1
s = StrReverse(s)
Text1.Text = s
End Sub
3、打开C盘novel.txt,统计每行“的”出现的次数
Private Sub Command1_Click()
Dim i As Long
Dim j As Long
Dim n As Long
Dim s As String
Open "c:\novel.txt" For Input As #1
j = 1
Do While (Not EOF(1))
Line Input #1, s
n = 0
For i = 1 To Len(s)
If Mid$(s, i, 1) = "的" Then n = n + 1
Next i
Print j; ":"; i
j = j + 1
Loop
Close #1
End Sub
'画多边形: n:边数,(x,y) 中心坐标,r 半径,color 颜