题库 高中信息

题干

某算法流程图如图所示,若输入m和n的值分别为189和161,执行这部分流程后,变量m的值为(   )
A.1B.7C.23D.27
上一题 下一题 0.99难度 选择题 更新时间:2020-03-30 11:11:17

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

同类题2

人们常使用计算机程序解决一些实际问题。下面程序可以找出能被2、3、5除,余数为1的最小的4个正整数。(注:VB中不区分大小写)请分析程序回答问题。
Private Sub Command1_Click(   1  )
Dim CountN%, n%
CountN=0
N=1
Do
N=n+1
If n Mod 2=1 And n Mod 3=1 And n Mod 5=1 Then
Print n
CountN=CountN+1
End If
Loop___2______3___
End Sub
【小题1】利用计算机编程解决问题的过程中,需要使用一种程序设计语言来实现算法,这个过程叫做(  )
A.设计程序B.测试程序C.运行程序D.编写程序
【小题2】VB中保存工程文件的文件扩展名为(  )
A..mdbB..frmC..vbpD..fla
【小题3】程序中的If语句一般在流程图中用(    )表示
A.平行四边形B.菱形C.矩形D.正方形
【小题4】变量CountN的数据类型定义为( )
A.IntegerB.SingleC.DoubleD.String
【小题5】变量CountN的作用是( )
A.求和B.求平均值C.求最大值D.计数
【小题6】所用到的表示循环的标志性语句是()
A.Dim……End IfB.Do…LoopC.Dim……LoopD.Do……End If
【小题7】在这个循环中,CountN=CountN+1语句被执行()
A.1次B.2次C.3次D.4次
【小题8】①处的语句应该是()
A.Until CountN =2B.Until CountN =4
C.Until Countn =2D.Until Countn =4
【小题9】这段程序的输出结果是(  )
A.31B.33C.35D.37
【小题10】VB语言中,下列合法的变量名是( )
A.12abB.ab12C.*abcdD.c\c
【小题11】下列控件中可用于接收用户输入文本,又可用于显示文本的是( )
A.Label控件B.TextBox控件C.CommandButton控件D.Timer控件
【小题12】VB中,下列哪一函数作用是将数值转化成字符串( )
A.Val(  )B.Asc(  )C.Abs(  )D.Str(  )
【小题13】下列( )算法就是一种直接或者间接地调用自身的算法
A.穷举算法B.排序算法C.递归算法D.解析算法
【小题14】程序中Command1控件响应的事件是( )
A.单击事件B.双击事件C.载入事件D.活动事件
【小题15】在VB中,“20”+“ 19”的运算结果是( )
A.“39”B.FalseC.“20+19”D.“2019”

同类题3

给定区间a1,a2和b1,b2,若a2≥b1,则认为这两个区间是有重叠的,可进行合并。如区间1,3和2,6可合并为1,6;区间1,6,2,5可合并为1,6;区间1,4和4,5可合并为1,5。
编写一个“合并重叠区间”的VB程序,功能如下:在文本框Text1中按各区间起始值升序依次输入各区间的起始值和终止值(数据都用逗号分隔并以逗号结尾),单击“确定”按钮后,在Text2中显示合并后的各个区间。例如,在文本框Text1中输入“1,2,3,5,4,6,9,12,10,11,”,表示区间1,2,3,5,4,6,9,12,10,11,合并后的区间分别为1,2,3,6,9,12。程序运行界面如图所示,实现上述功能的VB代码如下:

Const n=100
Private Sub Cmd1_Click()
Dim i As Integer, k As Integer, L As Integer, R
As Integer
Dim s As String, c As String, t As String, result
As String
Dim a(1 To n) As Integer
s=  :t="":k=0
For i=1 To Len(s)
c=Mid(s,i,1)
If c<>, Then

Else
k=k+1
a(k)=Val(t)
t=""
End If
Next i
L=a(1):R=a(2)
i=3
Do While i<=k
If a(i)>R Then
result = result+"("+Str(L)+,+Str(R)+"),"
L=a(i):R=a(i+1)
   
R=a(i+1)
End If
 
Loop
result=result+"("+Str(L)+,+Str(R)+"),"
Text2. Text=result
End Sub
(1)码中①②③划线处代码补充完整。
①__________
②__________
③__________
(2)程序代码中的加框处代码有误,请改正。
_____________________
(3)运行该程序,输入数据如图所示,程序执行完毕时,变量k 为________________。