- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 程序设计语言
- + 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- 基本运算及表达式
- 赋值语句
- 选择语句
- 循环语句
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
某算法的部分流程图如图所示,执行这部分流程图,依次输入12,20,-15,45,9,则输出b的值是( )


A.12 | B.-15 | C.45 | D.9 |
一个摸球游戏的流程图如图所示(红球总数和绿球总数均大于0)。游戏结束时,S位所代表的是( )


A.摸到的绿球数 | B.摸到的红球数 | C.未摸到的绿球数 | D.未摸到的红球数 |
编写一个VB程序,实现如下功能:在文本框Text1中输入一个偶数n,判断该数在10步之内通过以下计算过程后能否回到初始值。计算步骤如下:
(1)将n乘以3后加1产生一个新的数
(2)对产生的新数循环执行如下操作:新数是偶数时,用新数除以2;新数是奇数时,用新数乘以3后加1
譬如,以2为初始值,则计算过程如下。2→7→22→11→34→17→52→26→13→40→20→ 10→5→16→8→4→2。数字2不能在10步之内回到初始值。
界面如图所示,回答下列问题:

(1)若要把窗体的标题名称由“Form1”改为“数值猜想”,应改变窗体的_______属性。
(2)完成上述功能的程序代码如下,请在划线处填入合适的代码
Private Sub Command1_Click()
Dim n As Integer,t as Integer ,m as Integer ,s as String
____________________
t = n * 3 + 1
m = 1
s = ""
Do While _________________
s = s + Str(t)
If t Mod 2 = 0 Then
t = t \ 2
Else
t = t * 3 + 1
End If
m = m + 1
Loop
If n = t Then
Label1.Caption = s + Str(n)
Else
Label1.Caption = "该数10步之内无法实现!"
End If
End Sub
(3)按照以上VB程序的计算方法,若在文本框Text1中输入4,能否在10步之内回到初始数______。(选填:能/否)
(1)将n乘以3后加1产生一个新的数
(2)对产生的新数循环执行如下操作:新数是偶数时,用新数除以2;新数是奇数时,用新数乘以3后加1
譬如,以2为初始值,则计算过程如下。2→7→22→11→34→17→52→26→13→40→20→ 10→5→16→8→4→2。数字2不能在10步之内回到初始值。
界面如图所示,回答下列问题:

(1)若要把窗体的标题名称由“Form1”改为“数值猜想”,应改变窗体的_______属性。
(2)完成上述功能的程序代码如下,请在划线处填入合适的代码
Private Sub Command1_Click()
Dim n As Integer,t as Integer ,m as Integer ,s as String
____________________
t = n * 3 + 1
m = 1
s = ""
Do While _________________
s = s + Str(t)
If t Mod 2 = 0 Then
t = t \ 2
Else
t = t * 3 + 1
End If
m = m + 1
Loop
If n = t Then
Label1.Caption = s + Str(n)
Else
Label1.Caption = "该数10步之内无法实现!"
End If
End Sub
(3)按照以上VB程序的计算方法,若在文本框Text1中输入4,能否在10步之内回到初始数______。(选填:能/否)