[填空题]在当前目录下有一个名为myfile.txt的文本文件，其中有若干行文本。下面程序的功能是读入此文件中的所有文本行，按行计算每行字符的ASCII码之和，并显示在窗体上。请填空。
Private Sub Command1_Click（　）
Dim ch$, ascii As Integer
Open "myfile.txt" For (11) As #1
While Not EOF(1)
Line Input #1, ch
ascii=toascii( (12) )
Print ascii
Wend
Close #1
End Sub
Private Function toascii(myStr$) As Integer
n=0
For k=1 To (13)
n=n+Asc(Mid(myStr,k,1))
Next k
toascii=n
End Function

更多"在当前目录下有一个名为myfile.txt的文本文件，其中有若干行文本"的相关试题:

[填空题]在当前目录下有一个名为“myfile.txt”的文本文件，其中有若干行文本。下列程序的功能是读入此文件中的所有文本行，按行计算每行字符的ASCII码之和，并显示在窗体上。请填空。
Private Sub Command1_Click（　）
Dim ch$,ascii As Integer
Open"myfile.txt"For______AS#1
While NOt EOF(1)
Line Input#1.ch
ascii=toascii(______)
Print ascii
Wend
Close#1
End Sub
Private Function toascii(mystr$)As Integer
n=0
For k=1 To______
n=n+Asc(Mid(mystr,k,1))
Next k
toascii=n
End Function

查看答案

[填空题]假设在当前盘当前目录下有一个可执行程序USER.EXE。现要执行该程序，并要求在执行过程中将显示输出的结果信息存入当前盘当前目录的文件OUT.DAT中，则完整的DOS命令为【】。

查看答案

[单项选择]当前盘当前目录下有数据库db_stock，其中有数据库表stock.dbf，该数据库表的内容是：
股票代码股票名称单价交易所
600600 青岛啤酒 7.48 上海
600601 方正科技 15.20 上海
600602 广电电子 10.40 上海
600603 兴业房产 12.76 上海
600604 二纺机 9.96 上海
600605 轻工机械 14.59 上海
000001 深发展 7.48 深圳
000002 深万科 12.50 深圳
执行下列程序段以后，内存变量a的内容是( )。
CLOSE DATABASE
a=0
USE stock
GO TOP
DO WHILE .NOT. EOF（　）
IF 单价＞10
a=a+1
ENDIF
SKIP
ENDDO
A. 1
B. 3
C. 5
D. 7

查看答案

[单项选择]第15～27题使用的数据如下：
当前盘当前目录下有数据库db_stock，其中有数据库表stock.dbf, 该数据库表的内容是： <
A. 系统会提示出错信息
B. 会生成一个按“单价”升序排序的表文件，将原来的stock,dbf文件覆盖
C. 会生成一个按“单价”降序排序的表文件，将原来的stock,dbf文件覆盖
D. 不会生成排序文件，只在屏幕上显示一个按“单价”升序排序的结果

查看答案

[单项选择]

股票代码	股票名称	单价	交易所
600600	青岛啤酒	7.48	上海
600601	方正科技	15.20	上海
600602	广电电子	10.40	上海
600603	兴业房产	12.76	上海
600604	二纺机	9.96	上海
600605

(15)～(27)题使用的数据如下：
当前盘当前目录下有数据库db_ stock，其中有数据库表stock.. dbf,该数据库表的内容是：
股票代码股票名称单价交易所
600600 青岛啤酒 7.48 上海
600601 方正科技 15.20 上海
600602 广电电子 10.40 上海
600603 兴业房产 12.76 上海
600604 二纺机 9.96 上海
600605 轻工机械 14.59 上海
000001 深发展 7.48 深圳
000002 深万科 12.50 深圳

执行如下SQL 语句后： SELECT DISTINCT 单价 FROM stock； WHERE 单价=(SELECT min(单价)FROM stock)INTO DBF stock_ x 表stock_ x中的记录个数是( )。
A. 1
B. 2
C. 3
D. 4

查看答案

我来回答:

提交