填空题

下面程序用来计算:
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的单击事件过程,代...