如果存在,则在Label2中给出提示“输入项已在组合框中”。请在【 】、【 】和【 】处将程序补充完整。 Private Sub Combo1【 】(Key Ascii As Integer) If Key Ascii=13 Then For i=0 TO Comb01.ListCount-1 If Combo1.Text=【 】Then LabelCaption=“输入项已在组合框中” Exit Sub End If Next i LabelCaption=“已成功添加输入项” Combo1.【 】Combo1.Text End If End Sub
第1题
设有如下程序 Private Sub Fom1_Click( ) Dim s As Integer,b As Integer a=20:b=50 p1 a,b p2 a,b p3 a,b Print"a=";a,"b=";b End Sub Sub pl(x As Integer,ByValy As Integer) x=x+10 y=y+20 End Sub Sub p2(ByVal x As Integer,y As Integer) x=x+10 y=y+20 End Sub Sub p3(ByVal x As Integer,ByValy As Integer) x=x+10 y=y+20 End Sub 该程序运行后,单击窗体,则在窗体上显示的内容是:a=【 】和b=【 】。
请帮忙给出正确答案和分析,谢谢!
第2题
在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程: Private Sub Form_Load( ) Text1.Text="计算机" End Sub Private Sub Text1_Change( ) Picturel.Print"等级考试" End Sub 程序运行后,在文本框中显示的内容是【 】,而在图片框中显示的内容是【 】。
请帮忙给出正确答案和分析,谢谢!
第3题
以下程序的功能是:从键盘上输入若干个学生的考试分数,当输入负数时结束输入,然后输出其中的最高分数和最低分数。请在【 】和【 】处填入适当的内容,将程序补充完整。 Private Sub Form_Click( ) Dim x As Single,amax As Single,amin As Single x=Input Box("Enter a score") amax=X amin=x Do While【 】 If x>ama x Then Ama x=x End lf If【 】Then amin=X End lf x=Input Box("Enter a score") Loop Print”Max=";amax,"Min=";amin End Sub
请帮忙给出正确答案和分析,谢谢!
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!