- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- + 面向对象程序设计 VB开发工具
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- 基本运算及表达式
- 赋值语句
- 选择语句
- 循环语句
- 算法实例的程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
将以下程序段补充完整。
问题:往一个足够大的盒子里放小球,第一次放1个,第二次放2个,第三次放3个……,即每次放的小球数比上一次多1个。问放到第几次盒子里的小球才能多于300个?输出答案。n 表示放球的次数,sum表示小球的总数。
Dim n as integer , sum as integer
n=0
sum=0
Do While sum<=300
n =____ ① ______
sum =____ ②____
Loop
Print “放到第” & ___ ③___ & “次盒子里的小球才能多于300个”
问题:往一个足够大的盒子里放小球,第一次放1个,第二次放2个,第三次放3个……,即每次放的小球数比上一次多1个。问放到第几次盒子里的小球才能多于300个?输出答案。n 表示放球的次数,sum表示小球的总数。
Dim n as integer , sum as integer
n=0
sum=0
Do While sum<=300
n =____ ① ______
sum =____ ②____
Loop
Print “放到第” & ___ ③___ & “次盒子里的小球才能多于300个”
现要求编写VB程序,实现下列功能:计算一个大写字母在26个字母中的位次。程序运行时,在文本框Text1中输入一个大写英文字母,单击“计算”按钮Command1,在标签Label1上输出其在26个字母中的位次。

1图
(1)在进行应用程序界面设计时,需要添加“计算”按钮,可使用如第2图所示的“控件工具箱”中的 (填写相应编号),并在如第12题-3图所示的“属性窗口”中,将 属性值设置为“计算”。

(2)该程序的源代码如下,请根据题意将代码补充完整,使程序能正常运行。
Private Sub Command1_Click()
Dim ch As String, pos As Integer
(3) =Text1.Text
pos=Asc(ch) – 64
Label2. (4) =”第”+Str(pos)+”个字母”
End Sub

1图
(1)在进行应用程序界面设计时,需要添加“计算”按钮,可使用如第2图所示的“控件工具箱”中的 (填写相应编号),并在如第12题-3图所示的“属性窗口”中,将 属性值设置为“计算”。

(2)该程序的源代码如下,请根据题意将代码补充完整,使程序能正常运行。
Private Sub Command1_Click()
Dim ch As String, pos As Integer
(3) =Text1.Text
pos=Asc(ch) – 64
Label2. (4) =”第”+Str(pos)+”个字母”
End Sub
编写VB程序,实现如下功能:在文本框Text1中输入某一年份,单击“天干地支与生肖”按钮Command1,在列表框List1中输出该年份开始的12个年份及对应的“天干地支”与“生肖”,运行界面如图所示,程序代码如下。

(1)代码“Private Sub Command1_Click()”中的Click是 (单选,填字母:A、对象名 B、属性名 C、事件名)
(2)为实现上述功能,请在划线处填入合适代码。
Private Sub Command1_Click()
Dim a As Integer, b As Integer
Dim i As Integer, n As Integer
Dim c1 As String, s1 As String
Dim c2 As String, s2 As String
Dim c3 As String, s3 As String
List1.Clear
s1 = "甲乙丙丁戊己庚辛任癸"
s2 = "子丑寅卯辰巳午未申酉戌亥"
s3 = "鼠牛虎兔龙蛇马羊猴鸡狗猪"
n = Val(Text1.Text)
For i =" n" To
a =" (i" + 6) Mod 10
b =" (i" + 8) Mod 10
c1 =" Mid(s1," a + 1, 1)
c2 =" Mid(s2," b + 1, 1)
c3 =" Mid(s3," b + 1, 1)
List1.AddItem + "年 " + c1 + c2 + " " + c3
Next i
End Sub
(3)由上述算法可知,2024年对应的“天干地支”为 ,“生肖”是 。

(1)代码“Private Sub Command1_Click()”中的Click是 (单选,填字母:A、对象名 B、属性名 C、事件名)
(2)为实现上述功能,请在划线处填入合适代码。
Private Sub Command1_Click()
Dim a As Integer, b As Integer
Dim i As Integer, n As Integer
Dim c1 As String, s1 As String
Dim c2 As String, s2 As String
Dim c3 As String, s3 As String
List1.Clear
s1 = "甲乙丙丁戊己庚辛任癸"
s2 = "子丑寅卯辰巳午未申酉戌亥"
s3 = "鼠牛虎兔龙蛇马羊猴鸡狗猪"
n = Val(Text1.Text)
For i =" n" To
a =" (i" + 6) Mod 10
b =" (i" + 8) Mod 10
c1 =" Mid(s1," a + 1, 1)
c2 =" Mid(s2," b + 1, 1)
c3 =" Mid(s3," b + 1, 1)
List1.AddItem + "年 " + c1 + c2 + " " + c3
Next i
End Sub
(3)由上述算法可知,2024年对应的“天干地支”为 ,“生肖”是 。
某VB程序在调试中弹出如图所示的错误窗口,此时程序正执行的语句是()

Private Sub Command1_Click ()
Dim a (1 To 5) As Integer
Dim i As Integer
For i =" 1" To 5
a(i) =" i" * i
Next i
List1.AddItem Str (a (i))
End Sub

Private Sub Command1_Click ()
Dim a (1 To 5) As Integer
Dim i As Integer
For i =" 1" To 5
a(i) =" i" * i
Next i
List1.AddItem Str (a (i))
End Sub
A.For i =" 1" To 5 | B.a (i) =" i" * i |
C.Next I | D.List1.AddItem Str (a (i)) |
编写VB程序,实现如下功能:窗体装载时随机生成10个1至100的整数,并显示在列表框list1中,单击“分组”按钮command1,将这10个数分为奇数和偶数两组,在list2中显示奇数数字,及其个数,list3中显示偶数数字,及其个数。运行界面如第22题图所示,程序代码如下。

第22题图
Dim a(1 To 10) As Integer, b(1 To 10) As Integer, c(1 To 10) As Integer
Private Sub ② () '窗体加载时产生10个1~100的整数
Dim i As Integer
Randomize
List1.Clear
For i =" 1" To 10
a(i) = ③ '随机产生1个1~100的整数
List1.AddItem Str(a(i))
Next i
End Sub
Private Sub Command1_Click()
Dim i As Integer, ji As Integer, ou As Integer
List2.Clear
List3.Clear
ji =" 0:" ou = 0
For i =" 1" To 10
If a(i) Mod 2 <> 0 Then
List2.AddItem Str(a(i))
④
Else
List3.AddItem Str(a(i))
⑤
End If
Next i
List2.AddItem "共有奇数" + Str(ji) + "个"
List3.AddItem "共有偶数" + Str(ou) + "个"
End Sub
(1)观察运行界面,选项中没有用到的控件是 ① ( 选项A.
B.
C.
(2)划线②处应填的事件是 ② 。
(3)划线处③的代码应该是: ③ (填选项号)。
(4)请为④、⑤划线处填入合适的代码,④: ,⑤: 。

第22题图
Dim a(1 To 10) As Integer, b(1 To 10) As Integer, c(1 To 10) As Integer
Private Sub ② () '窗体加载时产生10个1~100的整数
Dim i As Integer
Randomize
List1.Clear
For i =" 1" To 10
a(i) = ③ '随机产生1个1~100的整数
List1.AddItem Str(a(i))
Next i
End Sub
Private Sub Command1_Click()
Dim i As Integer, ji As Integer, ou As Integer
List2.Clear
List3.Clear
ji =" 0:" ou = 0
For i =" 1" To 10
If a(i) Mod 2 <> 0 Then
List2.AddItem Str(a(i))
④
Else
List3.AddItem Str(a(i))
⑤
End If
Next i
List2.AddItem "共有奇数" + Str(ji) + "个"
List3.AddItem "共有偶数" + Str(ou) + "个"
End Sub
(1)观察运行界面,选项中没有用到的控件是 ① ( 选项A.



A.![]() |
(3)划线处③的代码应该是: ③ (填选项号)。
|
有如下VB程序段:
Dim i As Integer, c As String, s As String, t As String
s = "2012 Hero": t = ""
For i = 1 To Len(s)
c= Mid(s, i, 1)
If c >= "a" And c <= "z" Then t = t + c
Next i
Text1.Text = t
该程序段运行后,文本框Text1中显示的内容是()
Dim i As Integer, c As String, s As String, t As String
s = "2012 Hero": t = ""
For i = 1 To Len(s)
c= Mid(s, i, 1)
If c >= "a" And c <= "z" Then t = t + c
Next i
Text1.Text = t
该程序段运行后,文本框Text1中显示的内容是()
A.2012 | B.Hero | C.ero | D.2012 H |
下列表达式中值最大的是()
A.Abs( -5) +Len("ABCDE") |
B.val((Mid("SHANG2016HAI",6,2)) |
C.Int(2*sqr(36) +0.5)/3 |
D.5^2 Mod 25 \ 2^2 |