有哪位好心的大虾能帮我做下这道VB题啊!~谢谢了!~

来源:百度知道 编辑:UC知道 时间:2024/05/11 03:17:57
指出下列程序或子程序段的功能
100 OPEN “A:XXX。DAT” FOR INPUT AS#1
110 C1=0:C2=0
120 WHILE NOT EOF(1)
130 INPUT #1,X
140 IF X<100 THEN C1=C1+1 ELSE C2=C2+1
150 WEND
160 PRINT “C1=”;C1,“C2=”;C2
170 END

100 打开路径为“A:XXX。DAT”的数据文件(目的是读出里面的数据)
110 初始C1C2的值
120 如果没到文件尾
130 把读出的数据存到变量X里
140 如果X比100小那么 C1的值加1,否则C2的值加1
150 WEND和WHILE对应
160 输入C1 和C2的值
170 结束