题目内容
（请给出正确答案）
[主观题]
设有如下程序：Private Sub Command1_Click（) Dim sum As Double,x As Double sum=0 n=0 For i=1
设有如下程序： Private Sub Command1_Click() Dim sum As Double,x As Double sum=0 n=0 For i=1 To 5 x=n/i n=n+1 sum=sum+x Next End Sub 该程序通过For循环计算—个表达式的值，这个表达式是_________。
A．1+1/2+2/3+3/4+4/5
B．1+1/2+2/3+3/4
C．1/2+2/3+3/4+4/5
D．1+1/2+1/3+1/4+1/5
答案
C
解析：本题考查循环语句，其过程如下：i=1时，x=0/1=0，n=0+1=1，sum=0+0；i=2时，x=1/2，n=1+1=2，sum=0+1/2；i=3时，x=2/3，n=2+1=3，sum=0+1/2+2/3；i=4时，x=3/4，n=3+1=4，sum=0+1/2+2/3+3/4；i=5时，x=4/5，n=4+1=5，sum=0+1/2+2/3+3/4+4/5。
.jpg){kind=spacer}
编写如下程序： Private Sub Form_Load() Show Text1.Text=" " Form1.KeyPreview=False Text1.SetFocus End Sub Private Sub Command1_Click() KeyPreview=Not KeyPreview Print End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print UCase(Chr(KeyAscii+1))； End Sub Private sub Text1_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii+2) KeyAscii=0 End Sub 阅读以上程序，理解每个事件过程的操作，然后填空。 ①程序运行后，直接从键盘上输入abc，程序输出的结果是【 】。 ②程序运行后，单击一次“命令按钮1”，然后从键盘上输入abc，程序输出的结果是【 】。
