- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- 面向对象程序设计 VB开发工具
- 算法实例的程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
下列关于算法的描述,正确的是( )
A.一个算法的执行步骤可以是无限的 |
B.一个完整的算法必须有输出 |
C.算法只能用流程图表示 |
D.一个完整的算法至少有一个输入 |
For i =" 1" To 4 step 1
If i Mod 2=" 0" Then s =" s" + (-1) ^ (i + 1) * 1 / i
Next i
MsgBox s*100
该程序的运行结果是( )
If i Mod 2=" 0" Then s =" s" + (-1) ^ (i + 1) * 1 / i
Next i
MsgBox s*100
该程序的运行结果是( )
A.-25 | B.-75 | C.15 | D.25 |
For i =" 1" To___1___step 2
s = ""
For j =" 1" To i step 1
s =" s+Str(i)"
Next j
List1.AddItem s
Next i
该程序的运行后列表框输出的第3行是( )
s = ""
For j =" 1" To i step 1
s =" s+Str(i)"
Next j
List1.AddItem s
Next i
该程序的运行后列表框输出的第3行是( )
A.33333 | B.55555 | C.12345 | D.54321 |
Function LEAP( Y As Integer) As Integer
If Y Mod 400 =" 0" Or Y Mod 4 =" 0" And Y Mod 100 <> 0 Then LEAP =" 1" Else LEAP =" 0"
End Function
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim Y1 As Integer
If KeyAscii =" 13" Then
Y1 = Val(Text1.Text) ' 在text1中输入年份y1
Text2.Text =" Str(28" + LEAP(Y1)) ' 在text2中输出该年的二月份天数
End If
End Sub
以上程序运行后,在Text1中输入 2001,在 Text2中显示的是( )
If Y Mod 400 =" 0" Or Y Mod 4 =" 0" And Y Mod 100 <> 0 Then LEAP =" 1" Else LEAP =" 0"
End Function
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim Y1 As Integer
If KeyAscii =" 13" Then
Y1 = Val(Text1.Text) ' 在text1中输入年份y1
Text2.Text =" Str(28" + LEAP(Y1)) ' 在text2中输出该年的二月份天数
End If
End Sub
以上程序运行后,在Text1中输入 2001,在 Text2中显示的是( )
A.28 | B.29 | C.30 | D.31 |
读程序,写出下列程序的输出结果(共6题,每题只有一个正确答案,每题2分,共12分)
s = 1
For j =" 10" To -10 Step -2
s =" s" * j
Next j
MsgBox (s)
上述程序段中s =" s*j" 的执行次数是( )
s = 1
For j =" 10" To -10 Step -2
s =" s" * j
Next j
MsgBox (s)
上述程序段中s =" s*j" 的执行次数是( )
A.20 | B.10 | C.11 | D.21 |
在一次比赛中,假设变量i中存放的是选手编号(整数类型),一维数组S中存放的是选手的成绩(实数类型),则能在Label2控件对象上能显示第i位选手编号和成绩的语句是( )
A.Label2 ="val(i)+" val(S(i)) |
B.Label2.text val(i)+ val(S(i)) |
C.Label2.Caption="str(i)+ str (S(i))" |
D.Label2.Caption="str(i)+" str (S(i)) |
下列能正确表示"0 ≤ x ≤ 6"的VB表达式是( )
A.0 ≤ x ≤ 6 | B.0 <=" x" <= 6 | C.x>=0 and x<=6 | D.x≥0 and x≤6 |