题库 高中信息

题干

现要求编写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
上一题 下一题 0.99难度 填空题 更新时间:2016-05-29 04:05:00

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

同类题4

数组 a 存储降序排列的 m 个数据,数组 b 中存储的是升序排列的 n 个数据,且两个数组中存储的数据为区间1,20范围内的不重复的随机整数。现将两个数组的数据合并到 c 数组中,使 c 数组的数据为左右交替上升,如下表所示:

当窗体 Form1 加载时,自动产生 a、b 数组的数据,并分别显示在列表框 List1 与 List2
中,单击合并按钮 Command1 后,在 c 数组中保存按规则合并后的 a、b 数组的数据,并显示在列表框 List3 中。程序截图如下所示:

实现该功能的 VB 程序如下:
Const m = 5
Const n = 6
Dim a(1 To m) As Integer
Dim b(1 To n) As Integer
Dim c(1 To m + n) As Integer
‘窗体加载时,生成数组 a、b 中的数据,并按要求排序后显示在列表框中,代码略
Private Sub Command1_Click()
Dim pa As Integer, pb As Integer, pc As Integer, s As Integer, flag As Boolean
pa = m: pb = 1: pc = 1
flag = True
Do While ____________________  
If a(pa) < b(pb) Then

s = a(pa)

pa = pa - 1

Else

s = b(pb)

pb = pb + 1

End If
c(pc) = s
If flag Then

pc = m + n - pc + 1

Else

pc =  

End If
__________________________
Loop
‘处理 a、b 数组中剩余数据,并在列表框 List3 中输出数组 c,代码略
End Sub
(1)窗体加载的事件处理过程名为__________。(填字母:
A.Form1_Click /B.Form_Click /
C.Form1_Load /D.Form_load)
(2)加框处代码有错,请改正。 __________
(3)在划线处填入合适的代码。