全国计算机等级考试二级 VB 上机题库(一) 图 1 图 2T1.width=T1.width+1400T1.Height=T1.Height+400T1.fontsize=T1.fontsize*3最后单击保存按钮，工程命名为 sjt1.vbp,窗体命名为 sjt1.frm。 Text1.text=LCase(Text1.text) Text2.text=UCase(Text1.text)一、简朴应用题（2 小题，每小题 20 分，共计 40 分）1.在考生目录下有一个工程文献 sjt3.vbp，相应的窗体文献为 sjt3.frm。包含所有控件和部分程序，如图所示。规定：1)运用属性窗口向列表框添加四个项目：Visual Basic,Turbo C,C++,Java;2)请编写适当的程序完毕以下功能：当选择列表框中的一项和单选按钮Option1,然后单击“拟定”命令按钮，则文本框中显示“XXX 笔试”；当选择列表框中的一项和单选按钮 Option2，然后单击“拟定”命令按钮，则文本框中的一项和单选按钮 Option2，然后单击“拟定”命令按钮，则文本框中显示“XXX 上机”。其中“XXX”是在列表框中所选择的项目。If Option1.Value=True then Text1.Text=List1.List(List1.ListIndex)+Option1.CaptionEnd IfIf Option2.Value=True then Text1.Text=List1.List(List1.ListIndex)+Option2.CaptionEnd If最后单击保存按钮。2．在考生目录下有一个工程文献 sjt4.vbp，相应的窗体文献为 sjt4.frm。在窗体上已有一个命令按钮。其名称为 Command1,标题为“计算并输出”；程序运营后，假如单击命令按钮，程序将计算 500 以内两个数之间（涉及开头和结尾的数）所有连续数的和为 1250 的正整数，并在窗体上显示出来，这样的数有多组，程序输出每组开头和结尾的正整数，并用“～”连接起来,如图所示，这个程序不完整，请把它补充完整。规定：去掉程序中的注释符，把程序中的？该为对的的内容，使其实现上述功能，但不得修改程序中的其他部分。最后把修改的文献按原文献存盘。Private Sub Command1_Click() Dim i As Integer, j As Integer, iSum As Integer Print "连续和为 1250 的正整数是：" For i = 1 To 500 ' isum = 0 赋初值 For j = i To 500' iSum = j+iSum 进行累加 If iSum >= 1250 Then Exit For Next' If iSum = 1250 Then 和是否为 1250 Print i; " ～ "; j End If NextEnd Sub答案为：1）2)j+iSum 3)1250二、综合应用题（1 小题，计 40 分）在窗体上画一个文本框，名称为 Text1,初始内容为空白，并设立多行显示...
