填空题
下面程序用来计算:
Private Sub Command1_Click( ) A = Val(Text1. Text) B = Val (Text2. Text) Select Case A Case
【11】
N=A+B Case Is = 5 N = B/A Case Is<5 N=0 End Select Text3. Text = N End Sub
【参考答案】
Is,5 5(或Is=5) Is<5
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
填空题
有一过程如下:Sub Subl (m As Integer,total As Long)Dim i AS Integertotal = 1For i = 1 To mtotal = total * iNextEnd Sub调用它的事件过程如下:Private Sub Commandl_Click( )Dim tot As Long, a As Integera = Val( InputBox ( 请输入数据 )Call Subl (a,tot)Print totEnd Sub则输入数据5,运行结果为 【10】 。
点击查看答案&解析
填空题
在窗体上有一个名称为Laell的标签和一个名称List1的列表框。程序运行后,在列表框中添加若干列表项。当双击列表框中的某个项目时,在标签Label中显示所选中的项目,如图所示。请在空白处填入适当的内容,将程序补充完整。Private Sub Form_Load()List1.AddItem“北京”List1.AddItem“上海”List1.AddItem“河北”End SubPrivate Sub List1_Dblclick()Label.Caption= 【12】 End Sub
点击查看答案&解析
相关试题
下列事件过程的功能是:建立一个名为Datal...
语句PopupMenu PMENU,4 Or 2,,,PM...
设有命令按钮Command1的单击事件过程,代...