下面的程序是求100以内奇数和S的值（S=1+3+5+7...+99），请把空缺的地方填写完整（填数字、变量名称、或者属性名称等）。PrivateSubComm_刷题宝

题干

下面的程序是求100以内奇数和S的值（S=1+3+5+7...+99），请把空缺的地方填写完整（填数字、变量名称、或者属性名称等）。
Private Sub Command1_Click()
Dim s As Integer
Dim i As Integer
s=（1）
For i = 1 to 100 Step （2）
s=s+i
Next （3）
Label1.（4）=Str(s)
End Sub
填空结果：
（1）________ （2）________ （3）________ （4）__________

上一题下一题 0.99难度填空题更新时间:2019-04-03 11:00:54

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

同类题1

MSGBOX “这”，，“那”弹出的对话框中，其标题是（）

同类题2

在VB窗体中，文件的工程窗口和当前对象的属性窗口如图所示，下列说法正确的是

A．当前窗体的名称是：圆面积

B．该对象的名称是：计算

C．该对象属于命令按钮类

D．该对象的Cancel属性值为True

同类题3

某VB程序的一个事件过程如下：
Private Sub Command1_Click()
Dim a As Integer
a = Val(Text1.Text)
Text1.Text = Str(SqrA.)
End Sub
程序运行时，单击命令按钮command1后弹出如图所示的错误信息提示。出现错误的原因是（）

A. 变量a类型定义错误

A．界面缺少文本框Text1
B．Command1属性设置错误	C．Sqr函数计算时出错

同类题4

12 Python语言语句块的标记是( )

同类题5

输入两个在 1 和 9 之间的正整数 a 和 n ，求 a+aa+aaa+aaaa+…+a…a（n 个 a）之和｡为解决该问题，小明设计了一个 VB程序，在文本框 Text1 中输入 a 的值，在文本框 Text2 中输入 n的值，单击“计算”按钮 Command1，在列表框 List1 中输出每次相加的等式和结果，界面如图所示｡

（1）要使程序运行时，文本框 Text1 的文字大小 FontSize 属性值设置为 12，可在 Form_Load 事件过程中添加语句__________________（单选，填字母：

A．FontSize = 12 /

B．Text1. FontSize =12 /

C．FontSize. Text1=12）｡

（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码｡
Private Sub Command1_Click()
Dim a As Long, n As Integer, s As Long
Dim s1 As String, t As Long
a =Val(Text1. Text)
n =Val(Text2. Text)
If a < 1 Or a > 9 Then
List1. AddItem "输入 a 的值无效"
ElseIf n < 1 Or n > 9 Then
List1. AddItem "输入 n 的值无效"
Else
s = a: t = a
s1 =Str(t)
List1. AddItem s1 +"=" + Str(s)
i = ①__________
Do While i <= n
②__________
s = s + t
s1 = s1 + "+" +Str(t)
List1. AddItem s1 + "=" + Str(s)
③__________
Loop
End If
End Sub

相关知识点