网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
在当前目录下有—个名为“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
Fork=1 To【 】
n=n+ Asc(Mid(mystr,k,1))
Next k
toascii=n
End Function
参考答案
更多 “ 在当前目录下有—个名为“myfile.txt”的文本文件，其中有若干行文本。下面程序的功能是读入此文件中的所有文本行，按行计算每行字符的ASCII码之和，并显示在窗体上。请填空。Private Sub Command1_ Click()Dim ch＄, ascii As IntegerOpen "myfile.txt" For【 】 As 1While Not EOF(1)Line Input 1 ,chascii=toascii(【 】)Print asciiWendClose 1End SubPrivate Function toascii(mystr＄)As Integern=0Fork=1 To【 】n=n+ Asc(Mid(mystr,k,1))Next ktoascii=nEnd Function ” 相关考题
考题
下列程序编译错误，因为add函数返回值是一个引用，故对return返回值的要求是______。include(iostream.h)int add(int x，int y){return x+y，}void main(){int i=3，j=19；cout＜＜(add(i，j)+＝20)＜＜end1；}
考题
可设置文字字体为斜体的属性是( )。A.FontSlopeB.FontBoldC.FontltalicSXB
可设置文字字体为斜体的属性是（ ）。A.FontSlopeB.FontBoldC.FontltalicD.FontUnderline
考题
如果要创建一个数据组分组报表，第一个分组表达式是“部门”，第二个分组表达式是“工龄”，第三个分组表达式是“基本工资”，当前索引的索引表达式应当是（ ）。A. 部门+工龄+基本工资B. STR(基本工资)+性别+工龄C. 部门+工龄+STR(基本工资)D. 工龄+部门+STR(基本工资)
考题
现有某查询设计视图(如下图所示),该查询要查找的是( )。A.身高在160以上的女性和所有的男性SX
现有某查询设计视图（如下图所示），该查询要查找的是（ ）。A.身高在160以上的女性和所有的男性B.身高在160以上的男性和所有的女性C.身高在160以上的所有人或男性D.身高在160以上的所有人
考题
下面程序的运行结果为( )。a=10def setNumber(): a=100setNumber()print(a)
A.10B.100C.10100D.10010
热门标签
最新试卷
