- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 过程和自定义函数
- 枚举算法及程序实现
- 解析算法及程序实现
- + 递归算法及程序实现
- 排序算法及程序实现
- 查找算法及程序实现
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
某VB程序使用了递归函数,代码如下:
Private Sub Command1_Click()
N= val(Text1.Text)
Function f(x As Integer) As String
Dim t as integer
在文本框Text1中输入3,运行程序并点击按钮Command1后,文本框Text2中显示的内容是( )
Private Sub Command1_Click()
N= val(Text1.Text)
Text2.Text = f(n)
End SubFunction f(x As Integer) As String
Dim t as integer
If x = 1 Then t = 1 Else t = val(f(x - 1)) + 2
f=str(t)
End Function在文本框Text1中输入3,运行程序并点击按钮Command1后,文本框Text2中显示的内容是( )
A.1 | B.5 | C.135 | D.531 |
(加试题)货物搬运
平地上有两叠货物需要搬运到别处,期中一叠有a个货物,另一叠有b个货物(0<a≤5,0<b≤5)。每次只能从其中一叠搬走位于最上方的货物。小明编写了一个VB程序,用于计算搬运货物的方案数。小明请教了数学老师,得知方案数

随后,小明编写了如下程序段:
Private Sub calculate_Click()
Dim a As Integer
Dim b As Integer
Dim c As Long
a = Val(Text1.Text)
b = Val(Text2.Text)
c =fa(a, a + b)
_____①______
End Sub
Function fa(m As Integer, n As Integer) As Long
_____②_____
End Function
Function jc(x As Integer) As Long
If x = 1 Then
jc = 1
Else
jc = x * __ ___③__ ___
End If
End Function
(1)程序段Function jc部分主要采用了_______________算法;
(2)在程序画线①处应填入________________________;
在程序画线②处应填入________________________;
在程序画线③处应填入________________________。
已知斐波那契数列前8项是1,1,2,3,5,8,13,21,设计如下VB程序求其第n 项的值:
Dim a(1 to 1000)as long,n as integer
n=Val(Text1.Text)
a(1)= 1:a(2)= 1
For i=3 to n
a(i)= a(i-1)+a(i-2)
Next i
Label1.Caption=“斐波那契的第”&Str(n)&“是”&a(n)
该程序用到了下列哪一个算法( )
Dim a(1 to 1000)as long,n as integer
n=Val(Text1.Text)
a(1)= 1:a(2)= 1
For i=3 to n
a(i)= a(i-1)+a(i-2)
Next i
Label1.Caption=“斐波那契的第”&Str(n)&“是”&a(n)
该程序用到了下列哪一个算法( )
A.枚举算法 | B.递归算法 | C.排序算法 | D.查找算法 |
人们常使用计算机程序解决一些实际问题。下面程序可以找出能被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】利用计算机编程解决问题的过程中,需要使用一种程序设计语言来实现算法,这个过程叫做( )
【小题2】VB中保存工程文件的文件扩展名为( )
【小题3】程序中的If语句一般在流程图中用( )表示
【小题4】变量CountN的数据类型定义为( )
【小题5】变量CountN的作用是( )
【小题6】所用到的表示循环的标志性语句是()
【小题7】在这个循环中,CountN=CountN+1语句被执行()
【小题8】①处的语句应该是()
【小题9】这段程序的输出结果是( )
【小题10】VB语言中,下列合法的变量名是( )
【小题11】下列控件中可用于接收用户输入文本,又可用于显示文本的是( )
【小题12】VB中,下列哪一函数作用是将数值转化成字符串( )
【小题13】下列( )算法就是一种直接或者间接地调用自身的算法
【小题14】程序中Command1控件响应的事件是( )
【小题15】在VB中,“20”+“ 19”的运算结果是( )
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.编写程序 |
A..mdb | B..frm | C..vbp | D..fla |
A.平行四边形 | B.菱形 | C.矩形 | D.正方形 |
A.Integer | B.Single | C.Double | D.String |
A.求和 | B.求平均值 | C.求最大值 | D.计数 |
A.Dim……End If | B.Do…Loop | C.Dim……Loop | D.Do……End If |
A.1次 | B.2次 | C.3次 | D.4次 |
A.Until CountN =2 | B.Until CountN =4 |
C.Until Countn =2 | D.Until Countn =4 |
A.31 | B.33 | C.35 | D.37 |
A.12ab | B.ab12 | C.*abcd | D.c\c |
A.Label控件 | B.TextBox控件 | C.CommandButton控件 | D.Timer控件 |
A.Val( ) | B.Asc( ) | C.Abs( ) | D.Str( ) |
A.穷举算法 | B.排序算法 | C.递归算法 | D.解析算法 |
A.单击事件 | B.双击事件 | C.载入事件 | D.活动事件 |
A.“39” | B.False | C.“20+19” | D.“2019” |