图a 图b
若输入m和n的值分别为30和12,则执行这部分流程后,变量m的值为( )
①将“Y:\83”文本信息导入到工作表Sheet1中,放置在A2:D7区域位置,并将数据所在列的列宽设置为15,水平居中;
②将A1:D1区域合并居中,输入标题“居民人均收支表”,并添加浅绿色底纹
③在“转移净收入”和“消费支出”中间描入空行,输入“收入总额”,分别计算出“农村、城镇及全国”的收入总额;
④在当前工作表中插入簇状柱形图,效果如“人均收支样张jpg"所示;
⑤保存文档并关闭WPS表格。
i=1:j=7:s=""
key=Int(Rnd * 100)
Do While i< = j
m=(i+j)\2
If key = a(m)Then
s = s + " M":Exit Do 'Exit Do表示退出循环
Elself key < a(m)Then
j = m - 1:s = s + "L"
Else
i = m + 1:s = s + "R"
End If
Loop
Text 1.Text = s
数组元素a(1)到a(7)的值依次为“24,35,38,41,45,69,78”。该程序段执行后,文本框 Text1中显示的内容可能是( )
例如,输入字符串“addded”点击“运行”按钮后输出字符串“bd”;输入字符串“adddedb”,点击“运行”按钮后输出空字符串:输入字符串“abbba”点击“运行”按钮后输出字符串“bea”。
Private Sub Command1_Click( )
Din s1 As String, s2 As String
Dim i As Integer, j As Integer
S1 = Text1.Text
Do While Len(s1) > 1
s2=“”:i=1
Do While i<= Len(s1)
For j= i +1 To Len(s1)
If Mid(s1, i, 1) < Mid(s1, j, 1) Then Exit For
Next j
If j=i+1 Then s2= s2 + Mid(s1, i, 1)
Loop
If s2= s1 Then Exit Do
s1 =
Loop
Label1.Caption = s1
End Sub
图 1
图 2
图 3
图 4