填空题

标准模块和窗体模块的功能是计算和打印两个复数之和，在横线上填上适当内容。标准模块______。
Type comp
re As Single
im As Single
End Type
Public C As comp
窗体模块
Private Sub Commandl_Click()
Dim a As comp，b As comp
a.re=InputBox(“输入a的实部”)a.im=InputBox(“输入a的虚部”)
b.re=InputBox(“输入b的实部”)b.im=InputBox(“输入b的虚部”)

Print "c"="；
c.re； "+"；c.im； "i"
End Sub
Private Sub s()c.re = r1.re + r2.rec.im = r1.im + r2.im
End Sub

答案： Call s(a,b) 或 s a,b
rA As comp,rB As comp 或 ByRef rA As ...

你可能感兴趣的试题

把窗体的KeyPreview属性设置为True，然后编写如下两个事件过程：
Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Form KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii)
End Sub
程序运行后，如果直接按键盘上的“A”键(即不按住Shift键)，则在窗体上输出的字符分别是和。

答案： A
a

在窗体上画两个标签，其名称分别为Label1和Label2，Caption属性分别为“数值”及空白；然后画个名称为Hscrolll的水平滚动条，其Min的值为0，Max的值为100。程序运行后，如果单击滚动条两端的箭头，则在标签Label2中显示滚动条的值，如图所示。请在处填入适当的内容，将程序补充完整。

Private Sub HScrolll_ __()
Label2.Caption=HScrolll. _
End Sub

答案： Change或 change
Value

数据结构分为逻辑结构和存储结构，循环队列属于______结构。

答案：存储或物理或存储结构或物理结构

标准模块和窗体模块的功能是计算和打印两个复数之和，在横线上填上适当内容。标准模块______。
Type comp
re As Single
im As Single
End Type
Public C As comp
窗体模块
Private Sub Commandl_Click()
Dim a As comp，b As comp
a.re=InputBox(“输入a的实部”)a.im=InputBox(“输入a的虚部”)
b.re=InputBox(“输入b的实部”)b.im=InputBox(“输入b的虚部”)

Print "c"="；
c.re； "+"；c.im； "i"
End Sub
Private Sub s()c.re = r1.re + r2.rec.im = r1.im + r2.im
End Sub

答案： Call s(a,b) 或 s a,b
rA As comp,rB As comp 或 ByRef rA As ...

在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为Listl、Commandl和 Labell，通过属性窗口把列表框中的项目设置为：“第一个项目”、“第二个项目”、“第三个项目”、“第四个项目”。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如下图所示(选择“第三个项目”的情况)。下面是实现上述功能的程序，请填空。

Private Sub Commandl Click()
If Listl.ListIndex＞=Then
Listl.RemoveItem
Labell.Caption=__
Else
MsgBox “请选择要删除的项目”
End If
End Sub

答案： 0
Listl.ListIndex
Listl.ListCount

在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Textl、Labell和 Commandl，然后编写如下两个事件过程：
Private Sub Commandl_Click()
S$=InputBox(“请输入一个字符串”)
Textl.Text=S$
End Sub
Private Sub Text1_Change()
Labell.Caption=UCase(Mid(Text1.Text，7))
End Sub
程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串
"VisualBasic"，则在标签中显示的内容是______。

答案： BASIC

设有如下程序
Option Base 1
Private Sub Command1_Click()
Dim arrl
Dim Min As Integer，i As Integer
arrl=Array(12，435，76，-24，78，54， 866， 43)
Min=____
For i=2 To 8
If arrl(i)＜Min Then
Next i
Print “最小值是：”；Min
End Sub
以上程序的功能是：用Arcay函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。

答案： arrl(1)或12
Min=arrl(i)

在窗体上画一个名称为Lablel的标签和一个名称为Listl的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Labell中显示所选中的项目，如图所示。请在处填入适当的内容，将程序补充完整。

Private Sub Form load()
Listl.AddItem “北京”
List1.AddItem “上海”
List1.AddItem “河北”
End Sub
Private Sub ()
Labell.Caption=__
End Sub

答案： List1 DblClick或 Form1.Listl DblCiick或Me.List1 DblClick
L...