2025年二级VB技能强化试题及答案推荐.docxVIP

2025年二级VB技能强化试题及答案推荐

以下为详细内容：

试题一：

编写一个VB程序，实现以下功能：

1.界面包含一个文本框（TextBox1），一个按钮（Button1），和一个列表框（ListBox1）。

2.在文本框中输入数字，点击按钮后，将文本框中的数字添加到列表框中。

3.列表框中只能显示唯一的数字，不允许重复添加。

4.当列表框中的数字总数达到10个时，程序自动停止运行。

代码及答案：

PrivateSubButton1_Click()

DiminputNumAsInteger

DimisExistsAsBoolean

IfIsNumeric(TextBox1.Text)Then

inputNum=CInt(TextBox1.Text)

isExists=False

Fori=0ToListBox1.ListCount1

IfListBox1.List(i)=inputNumThen

isExists=True

ExitFor

EndIf

Nexti