将以下计算50以内奇数和S的值（s=1+3+5+…+49）的程序段补充完整.privatesubform_click()dimiasinteger,sasint_刷题宝

题干

将以下计算50以内奇数和S的值（s=1+3+5+…+49）的程序段补充完整.
private sub form_click( )
dim i as integer, s as integer
s=(1)_________
for i="1" to 50 (2)____________
（3)____________
Next i
print “50以内奇数和="”;" s
end sub

上一题下一题 0.99难度填空题更新时间:2015-12-04 07:32:47

答案(点此获取答案解析）

同类题1

读流程图写结果

已知数组a中依次存放了6个数：-1，4，12，10，-3，8，运行结果是_______________。

同类题2

小张编写了一个查询汉字区位码的程序，程序具体功能：在文本框Text1中输入一个汉字的内码（处理码），单击“查询”按钮Command1后，在Text2中输出汉字的区码和位码。例如：汉字“啊”的内码和区位码的关系如下：

“啊”的区位码	区码	位码
十进制	16	01
十六进制	10	01

区位码分别转成十六进制后，将区码和位码分别加上十六进制数A0即得到内码。

“啊”的内码的十六进制形式即为B0A1H
程序运行界面如图所示：

Private Sub Command1_Click()
Dim i As Integer, q As Integer, w As Integer, s As String, s1 As String, c As String
s = Text1.Text
For i = 1 To 4    '如果输入的处理码包含小写字母，则转成大写字母
c = Mid(s, i, 1)
If  ①_____ Then
s = Mid(s, 1, i - 1) + Chr(Asc(c) - 32) + Mid(s, i + 1, Len(s) - i)
End If
Next i
For i = 1 To 4   '两个字节分别减去 A0H
c = Mid(s, i, 1)
If i Mod 2 = 1 Then
s1 = s1 & CStr((Asc(c) - Asc("A")))    'CStr( )：将括号内表达式的值转换为字符串型
Else
②_____
End If
Next i
For i = 1 To 2    '将十六进制转换成十进制
q = q * 16 + Val(Mid(s1, i, 1))
③_____
Next i
Text2.Text = "区号：" + Str(q) + "   位号：" + Str(w)
End Sub
（1）请在划线处填入合适的代码。
（2）如果输入的内码为 D1A7，则 Text2 中输出的内容是：_______________

同类题3

为使左右框内的Visual Basic程序段实现相同的功能，可在左框内划线处填写的代码是：（）

同类题4

下面是用于实现S=1*2+3*4+5*6+7*8+9*10的算法的流程图，则划线处分别应填写：（）

A．S<=10 I←I+1

B．I<=10 I←I+1

C．S<10 I←I+2

D．I<10 I←I+2

同类题5

某同学编写了以下Visual Basic 程序段，运行这段程序段，循环体的循环次数为：（）
Dim x，y As Integer
x=2
y=20
Do While x<y
x =x^2
Loop

相关知识点