趣味填空题：给出用等号连接的两个整数，如“222＝24”，让你在左边的整数中间某个位置插入一个加号，看有没有可能让等式成立。以上面的式子为例，可以写成2+22=_刷题宝

题干

趣味填空题：给出用等号连接的两个整数，如“222＝24”，让你在左边的整数中间某个位置插入一个加号，看有没有可能让等式成立。以上面的式子为例，可以写成2+22=24和22+2=24。现设计一个程序，实现该算法，程序运行界面如图所示。

（1）标题要显示“趣味数学”，需修改窗体的_________属性。
（2）实现上述功能的VB程序如下，请在程序划线处填入合适代码。
Private Sub Command1_Click()
Dim s As String, s1 As String, s2 As String
Dim c As Integer, k As Integer, i As Integer, flag As Boolean
flag = False
s = Text1.Text
For c = 1 To Len(s)
If ______________① Then Exit For 'Exit for退出循环
Next c
s1 = Mid(s, 1, c - 1)
s2 = Mid(s, c + 1,len(s)-c)
k = _________②
For i = 1 To k - 1
If Val(Mid(s1, 1, i)) + Val(Mid(s1, i + 1,c-i-1)) = Val(s2) Then
List1.AddItem Mid(s, 1, i) + "+" + Mid(s, i + 1,len(s)-i)
________③
End If
Next i
If Not flag Then List1.AddItem "等式始终无法成立!"
End Sub

上一题下一题 0.99难度填空题更新时间:2019-05-23 11:37:58

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

同类题1

某算法的部分流程图如图所示，执行该部分流程后，输出a,b的值分别为

同类题2

有如下VB程序段：
For i =" 1" To 3
For j =" 5" To i Step -1
If a(j) < a(j + 1) Then
k =" a(j):" a(j) =" a(j" + 1): a(j + 1) = k
End If
Next j
List1.AddItem Str(a(i))
Next i
数组元素a(1)到a(6)的数据依次为“1，5，7，6，9，3”，经过该程序段加工后，列表框list1中显示的内容是：

C．9、7、6、1、5、3

D．9，7，6，5，3，1

同类题3

异或（xor）是一个数学逻辑运算符，如:x xor y，其运算具体方法描述如下：
(1)分别将十进制数x,y转换为二进制,并将转换的每位二进制数存储到数组a,b中；如果两个二进制位数不相等，则位数较少的前面用“0”补足，使之a,b数组元素个数一致；
(2)取出数组a,b中下标相同的数组元素进行运算，若值相同，则结果为0，否则为1；
根据上述运算方法,示例如表所示。

变量	十进制	二进制
x	19	1	0	0	1	1
数组a		a(1)	a(2)	a(3)	a(4)	a(5)
y	9	0	1	0	0	1
数组b		b(1)	b(2)	b(3)	b(4)	b(5)
x xor y		1	1	0	1	0

小明编写了一个VB程序，功能如下：在文本框Text1、Text2中分别输入x、y的值，单击“异或”按钮Command1，程序对数据进行异或运算，并将结果显示在列表框List1中。
（1）在设计程序界面时，要使按钮Command1显示“异或”二字，则应该修改Command1的_______ 属性。
（2）实现上述功能的VB程序如下，在划线处填入合适的代码，加框处代码有错，请改正。
Function f(z As Integer) As String '此程序段实现将十进制数z转换为二进制数f
Dim y As Integer
Do While z > 0
y = z Mod 2
z = ①
f = str(y) & f
Loop
End Function
Private Sub Command1_Click()
Dim x,y,k,m As Integer
Dim s1 As String, s2 As String, s3 As String
Dim a(15) As String, b(15) As String
x = Val(Text1.Text): y = Val(Text2.Text)
If x < y Then
m = x: x = y: y = m
End If
s1 = f(x): s2 = f(y) 's1表示x的二进制数，s2表示y的二进制数
k = Len(s1)
For i = 1 To k '将转换后的二进制数按位分别存储到数组a和b
a(i) = Mid(s1, i, 1)
If i <= Len(s2) Then
b(i) = Mid(s2, i, 1)
Else

a(i) = "1" '②
End If
Next i
S3=""
For i = 1 To k

If a(i) > b(i) Then '③
s3 = "0" + s3
Else
s3 = "1" + s3
End If
Next i
List1.AddItem "异或结果是:" + s3
End Sub
（3）十进制数10和十进制数20的异或结果是___________________。

同类题4

将数学表达式a≤b≤c写成Visual Basic表达式，正确的是（）

B．a<=b Or b<=c

C．a<=b And b<=c

D．a<=b Not b<=c

同类题5

工资问题：某古老的工作和工资计算方式比较奇特，其工作要求如下：必须从1月1日当天开始工作，且连续工作n（n<=365）天才一次性结算得到工资。某年（假设当年为平年）的工资计算细则是：第1天获得1枚金币，接下来的2天（第2天和第3天）每天获得2枚金币，再接下来的3天（第4、5、6天）每天获得3枚金币，……，依次类推，即当连续n天每天获得n枚金币后，会在之后的连续n+1天里，每天获得n+1枚金币。
小王用VB编写了工资计算程序，当输入连续工作的最后一天的日期后，单击“计算”按钮Command1，程序自动计算工资总额，其运行界面如图所示。

实现上述功能的VB程序如下，请回答下列问题：
（1）下列选项中，属于鼠标“单击”事件的是_______。（单选，填字母：

（2）请在划线处填入合适的代码。
①__________
②__________
（3）加框处的代码有错误，请改正。
__________
Private Sub Command1_Click()
Dim i As Integer,j As Integer,k As Integer
Dim m As Integer,d As Integer,n As Integer
Dim md As String,sum As Integer
md = "312831303130313130313031"
n = 0
m = Val(Text1.Text)
d = Val(Text2.Text)
For i = 1 To m - 1
n = ①
Next i
n = n + d
i = 0:j = 0
sum = 0:k = 1
Do While i < n
sum =

j = j + 1
If ② Then
j = 0
k = k + 1
End If
i = i + 1
Loop
Text3.Text = Str(sum)
End Sub

相关知识点