设有如下程序 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=【 】。
第1题
在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程: Private Sub Form_Load( ) Text1.Text="计算机" End Sub Private Sub Text1_Change( ) Picturel.Print"等级考试" End Sub 程序运行后,在文本框中显示的内容是【 】,而在图片框中显示的内容是【 】。
请帮忙给出正确答案和分析,谢谢!
第2题
以下程序的功能是:从键盘上输入若干个学生的考试分数,当输入负数时结束输入,然后输出其中的最高分数和最低分数。请在【 】和【 】处填入适当的内容,将程序补充完整。 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
请帮忙给出正确答案和分析,谢谢!
第4题
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色)。当向文本框中输入任何字符时,命令按钮Command1变为可用。请在【 】处填入适当的内容,将程序补充完整。 Private Sub Form_Load( ) Command1.Enabled=False End Sub Private Sub Text1【 】( ) Command1.Enabled=True End Sub
请帮忙给出正确答案和分析,谢谢!
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!