物理学的发展丰富了人类对物质世界的认识，推动了科学技术的创新和革命，促进了物质生产的繁荣与人类文明的进步，下列表述正确的是 [ ]

A．牛顿通过实验测出了引力常量

B．牛顿发现了万有引力定律

C．伽利略发现了行星运动的规律

D．洛伦兹发现了电磁感应定律

在当前目录下有一个名为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