程序员三级题库第2套OK.docVIP

57题没得分 80题如何做？ 4.下列程序段的功能是输入一元二次方程ax2 + bx + c =0(a≠0)的3个系数a、b、c， 并判断它根的情况，下列程序括号中应该填入的表达式是（ A ）。缺少程序，题意清楚 A b*b-4*a*c B a+b+c Ca*b-c D (a+b)/c 5.在窗体中添加一个名称为txtScore的文本框，一个名称为Command1命令按钮， 两个标签，名称分别为Label1和Label2，标题分别为输入数据和空白。(B) 题意不清楚 A 及格 B不及格 C良 D输入错误 6.在窗体上添加一个命令按钮和一个文本框，并在命令按钮中编写如下代码： Private Sub Command1_Click() a = 1.8 c = Len(Str(a) + Space(10)) Text1.Text = c End Sub 程序运行后，单击命令按钮，在文本框中显示（ D ）。 A 3 B 1.8 C 13 D 14 说明：当一数字转成字符串时，总会在前头保留一空位来表示正负 Private Sub Command1_Click() a = UCase$(Text1.Text) + Left$(Text2.Text， 2) Print a End Sub Private Sub Form_Load() Text1.Text = abc Text2.Text = 123 End Sub 程序运行后，单击命令按钮，输出结果为（B ）。 A abc12 B ABC12 C abc123 D ABC123 ！·#￥%……—*9.设有如下程序： Option Base 1 Private Sub Form_Click() Dim a(9)， P(3) As Integer k = 5 For i = 1 To 9 a(i) = i Next i For i = 1 To 3 P(i) = a(i * i) Next i For i = 1 To 3 k = k + P(i) * 2 Next i Print k End Sub 程序运行后，单击窗体，则在窗体上显示的是（ A ）。 A 33 B 55 C 37 D 38 10.Combo1是ComboBox 控件，Text1是TextBox 控件，运行以下程序 Private Sub Command1_Click() Combo1.AddItem 111 Combo1.AddItem 222 Combo1.AddItem 333 Combo1.AddItem 444 Combo1.ListIndex = 2 Text1.Text = Combo1.ListCount End Sub Combo1和Text1中的结果分别是（ D ）。 A 222和3 B 222和4 C 333和3 D 333和4 ·#￥%……—11.Combo1是ComboBox 控件，Label1标签控件，有以下程序 Private Sub Form_Load() Dim strName As Variant strName = Split(father mother daughter son) For I = 0 To 2 Combo1.AddItem strName(I) Next I Combo1.ListIndex = 0 End Sub Private Sub Combo1_Click() Dim strAge(0 To 3) As Integer strAge(0) = 55 strAge(1) = 50 strAge(2) = 25 strAge(3) = 20 Label1.Caption = strAge(Combo1.ListIndex) End Sub 当Combo1选择daughter时，Label1标题栏中对应的值是（ C ）。 A 55 B 50 C 25 D 20 ·#￥%……12. HScroll1是HScrollBAR 控件，Text1是TextBox 控件，有以下程序 Private Sub Form_Load () HScroll1.Min = 0 初始化滚动条。 HScroll1.Max = 1000 HScroll1.LargeChange = 10 HScroll1.Sm