Question

一道vb题目 求大神帮忙

此题由于本人与老师的不同理解导致答案不一致题目：修改VB程序，使其具有下列功能：在左边列表框list1中选择一个车牌，单击“判断”按钮command1，根据该车牌最后一位数字进行限行判断（若为偶数则奇数日期限行，奇数则偶数日期限行），并将判断结果显示在文本框text2中，程序运行界面如图。（1）根据下列代码判断，这些代码在运行时窗体至少需要添加（ ）个对象。Private Sub List1_Click() ‘单击List1，将列表框中选中的内容显示在Text1中 Text1.Text = List1.List(List1.ListIndex) '将当前选中的List1的内容显示在Text1中 Text2.Text = ""End SubPrivate Sub Command1_Click() Dim i As Integer Dim cp As String , c As String For i = Len(Text2.Text) To 4 step-1 c = Mid ( cp , i , 1 ) If c >= "0" And c <="9" Then If Val(c) Mod 2 = 1 Then Text2.Text = "偶数日期限行" Else Text2.Text = "奇数日期限行" End If Exit For End If Next iEnd Sub

Answer 1

如题目原文如此，则程序没有问题，完全正确。
具体要看题目的要求。
比如：“奇数日通行”，还是“偶数日限行”？

追问

不不不我就想问第一题的答案
老师说答案是7 我觉得是4 因为题目是说在程序中看至少要几个控件

追答

需要7个控件。
3个标签控件
2个文本框控件
1个列表框控件
1个按钮控件

追问

如果不看图呢，因为题目是根据代码判断啊
所以不应该标签控件不需要么

追答

根据代码分析，是至少需要4个控件，但是根据题意，还需要说明性的标签控件，否则这个界面就“不友好”了。