试题 试卷
题型：单选题 题类：常考题 难易度：普通
浙江省金华市武义第三中学2019-2020学年高二上学期信息技术10月月考试卷
Private Sub Command1_Click()
Dim x As Double
Dim y As Double
x = Val(Text1.Text)
y = Abs(x)
x = int(y)
Text2.Text = Str(x)
End Sub
此应用程序执行后，出现了如图所示的错误信息，请问产生此错误的原因是( )
图1
图2
点击“转换”按钮Command1，则在文本框Text2中显示该金额的大写，程序运行界面如下图所示:
编写VB程序，实现上述挑选、组队功能。运行程序，在列表框List1中显示m名身高大于等于175cm的学生信息，且根据体重数值降序排序。单击“组队”按钮，在符合条件的情况下尽可能多的两两组队，并将组队结果显示在列表框List2中。程序运行界面如图所示，实现上述功能的VB程序如下。
请回答下列问题：
试题篮
