vb 2.docx

1、vb 2有如下程序：Private Sub Form_Click() Dim i As Integer, sum As Integer sum = 0 For i = 2 To 10 If i Mod 2 0 And i Mod 3 = 0 Then sum = sum + iEnd If Next i Print sumEnd Sub程序运行后，单击窗体，输出结果为_12_。在窗体上画一个命令按钮（名称为Command1），然后编写如下事件过程：Private Sub Command1_Click() Dim b As Integer b = b + 1End Sub运行程序，三次单击命令按

2、钮后，变量b的值是：1_。假定程序中有以下语句： answer = MsgBox(String1,String2,String3,2)执行该语句后，将显示一个信息框，此时如果单击“确定”按钮，则answer的值为：_1_。如果在立即窗口中执行以下操作（ 是回车键）： a=8 b=9 print ab 则输出结果是_False_。 设置复选框中或单选按钮的标题对齐方式的属性是_。Alignment 用Dim(1,3 to 7,10)声明的是一个_3_维数组。 通过以下_窗口可以在设计时直观的调整窗体在屏幕上的位置。 窗体布局窗口 在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件

3、过程：Private Sub Command1_Click() For i = 1 To 4 If i = 1 Then x = i If i 4 Print 分支 2 Case Else Print Else 分支 End SelectEnd Sub程序运行后，如果在输入对话框中输入2，则窗体上显示的是_。Else 分支 以下关系表达式中，其值为假的是：_VisualBasic=visualbasic_。 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim array1(10,

4、10) As Integer Dim i, j As Integer For i = 1 To 3 For j = 2 To 4 array1(i, j) = i + j Next j Next i Text1.Text = array1(2, 3) + array1(3, 4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是_12_ 在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Option Base 1Private Sub Command1_Click() Dim a(4, 4) For i = 1 To 4 For j = 1 To 4 a(

5、i, j) = (i - 1) * 3 + j Next j Next i For i = 3 To 4 For j = 3 To 4 Print a(j, i); Next j Print Next iEnd Sub程序运行后，单击命令按钮，其输出结果为_ 9 12 10 13_。 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：Private Sub Command1_Click() n=Val(Text1.Text) For i=2 To n For j=2 To Sqr(i) If i Mod j=0 Then Exit For Ne

6、xt j If jsqr(i) Then Print i Next iEnd Sub这事件过程的功能是_输出n以内的素数_。可以同时删除字符前导和尾部空白的函数是_Trim_。以下定义数组或给数组元素赋值的语句中，正确的是_。 Dim a As Variant a=Array(1,2,3,4,5) 在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click() a=12345 Print Format$(a,000.00)End Sub程序运行后，单击命令按钮，窗体上显示的是_12345.00_。 设A=12345678，则表达

7、式Val(Left(A,4)+Mid(A,4,2)的值为_123445 在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim x As Integer, n As Integer x = 1 n = 0 Do While x 20 x = x * 3 n = n + 1 Loop Text1.Text = Str(x) Text2.Text = Str(n)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别是_27和3 以下可以作为Visual Bas

8、ic变量名的是_counstA_。 下列程序段的执行结果为_ 15 0 4_。 N = 0 For I = 1 To 3 For J = 5 To 1 Step -1 N = N + 1 Next J, I Print N; J; I 下列程序段的执行结果为_ 2 3 5_。 x = 1 Y = 1 For I = 1 To 3 F = x + Y x = Y Y = F Print F; Next I 当我们输入代码时，Visual Basic可以自动检测_语法错误_错误。 设x=4,y=8,z=7，以下表达式的值是_False_。xz) Or zb) And (cd),10,20) 在窗体

9、上画1个命令按扭（名称为Command1）和1个文本框（名称为Text1），然后编写如下事件过程： Private Sub Command1_Click() x=Val(Text1.Text) Select Case x Case 1,3 y=x*x Case Is=10,Is=-10 y=x Case -10 To 10 y=-x End Select End Sub程序运行后，在文本框中输入3，然后单击命令按扭，则以下叙述中正确的是_执行y=x*x_。 下列程序段的执行结果为_bcdcde_。 A = abcd B = bcde E = Right(A, 3) F = Mid(B, 2,

10、3) If E F Then Print E + F Else Print F + E 函数UCase(Mid(visual basic,8,8)的值为_。BASIC 在设计应用程序时，通过_工程资源管理器窗口_窗口可以查看到应用程序工程中的所有组成部分。 编写如下事件过程：Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If (Button And 3) = 3 Then Print AAAA End IfEnd Sub程序运行后，为了在窗体上输出AAAA，应按下的鼠标键为_按什么键都不显示_。 请根据以下各小题的

11、要求设计Visual Basic应用程序（包括界面和代码）。 （1）在名称为Form1的窗体上画一个文本框，其名称为Text1，然后通过属性窗 口设置窗体和文本框的属性，实现如下功能： 1）在文本框中可以显示多行文本 2）在文本框中显示垂直滚动条 3）文本框中显示的初始信息为“程序设计” 4）文本框中显示的字体为三号规则黑体 5）窗体的标题为“设置文本框属性” 完成设置后的窗体如图所示。 要求： 不编写任何代码。 *注意： 存盘时必须存放在考生文件夹下，工程文件名为sj29.vbp，窗体文件 名为sj29.frm。 * （2）在名称为Form1的窗体上画两个命令按钮（见图1），其名称分别为Cm

12、d1 和Cmd2，编写适当的事件过程。程序运行后，如果单击命令按钮Cmd1，则 可使该按钮移到窗体的左上角（只允许通过修改属性的方式实现）；如果 单击命令按钮Cmd2，则可使该按钮在长度和宽度上各扩大到原来的2倍。 程序的运行情况如图2所示。 要求： 不得使用任何变量。 *注意： 存盘时必须存放在考生文件夹下，工程文件名为sj30.vbp，窗体文件 名为sj30.frm。第1小题：新建一个工程，在窗体上添加一个文本框Text1，并将其MultiLine属性设置为True，ScrollBars属性设置为2-Vertical，Text属性设置为“程序设计”，FontName设置为“黑体”，Font

13、Size设置为“三号”。再选中窗体，设置其Caption属性为“设置文本框属性”。最后按照题目要求保存文件即可。第2小题：新建一个工程，在窗体上添加两个命令按钮Cmd1和Cmd2，它们的Caption属性为“Cmd1”和“Cmd2”。打开代码窗口，在其中添加如下代码：Private Sub Cmd1_Click()Cmd1.Left = 0Cmd1.Top = 0End SubPrivate Sub Cmd2_Click()Cmd2.Height = Cmd2.Height * 2Cmd2.Width = Cmd2.Width * 2End Sub在考生文件夹下有一个工程文件sj80.vbp，

14、窗体文件中已给出所有控件和部分程序，如图所示。要求：1）利用属性窗口设置适当的属性，使Text1、Text2中数据右对齐；2）请编写适当的程序完成以下功能：在Text1中输入40（度数），选择一个单选按钮，单击计算按钮，则根据所选择的单选按钮，计算出相应的正弦、余弦值（保留3位小数，第4位截去，取3.14159），并显示在Text2中。注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须进行一种计算，在Text1中输入的必须是40，必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 * 考查考生对Text控件的Alignment属性的使用。单选按钮的Va

15、lue属性：Value属性用来表示单选按钮的状态，可以取True和False两种值，取值为True时，单选按钮是打开的，按钮中心有一个圆点；取值为False时，单选按钮是关闭的，按钮是一个圆圈。设置单选按钮Value属性的语法是：单选按钮名.Value = True或False由于Value属性是单选按钮的缺省属性，因此在设置该属性的值的时候，可以省略属性名。控件数组：控件数组是一组具有共同名称和类型的控件。它们的事件过程也相同。一个控件数组至少应有一个元素，元素数目可在系统资源和内存允许的范围内增加；数组的大小也取决于每个控件所需的内存和Windows资源。控件数组中的每一个控件都有唯一的索

16、引号（Index），即下标，根据这个下标，可以调用控件数组中任意控件的事件，设置控件数组中任意控件的相关属性。Round函数：Round函数的格式为：Round(数值，保留的小数位数)，它的作用就是对指定数值进行四舍五入的操作并保留指定小数位数。 表达式Fix(-32.68)+Int(-23.02)的值为 -56_。 阅读程序：Private Sub Form_Click() num = 0 s = 0 Do While num = 2 num = num + 1 s = s + 1 Loop Print sEnd Sub程序运行后，单击窗体，输出结果是_3_。 在窗体上画一个名称为Comma

17、nd1的命令按钮，编写如下事件过程Private Sub Command1Click Dim a As String a=_ For i=1 To 5 Print Space(6-i);Mid$(a,6-i,2*i-1) NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示的输出结果为 5 456 34567 2345678 123456789请填空。 “1234567889“ 以下程序段执行后y的值是_9_。 x=8.6 y=int(x+0.5) print y 以下程序在文本框Text1中输入任一字符串，并按相反的次序显示在文本框Text2中。Private Sub Comma

18、nd1_Click() Dim N As String, D As String N = Text1.Text M=_len（text1）_ For i = M To 1 Step -1 c = Mid(N, i, 1) D=D & _c_ Next i _text2_=DEnd Sub 阅读下面的程序：Private Sub Form_Click() Dim Check As Boolean, Counter As Integer Check = True Counter = 5 Do Do While Counter 20 Counter = Counter + 1 If Counter

19、= 10 Then Check = False Exit Do End If Loop Loop Until Check = False Print CounterEnd Sub程序运行后，单击窗体，输出结果为_10_。 阅读下面的程序：Private Sub Form_Click() Dim Check As Boolean, Counter As Integer Check = True Counter = 5 Do Do While Counter 20 Counter = Counter + 1 If Counter = 10 Then Check = False Exit Do En

20、d If Loop Loop Until Check = False Print CounterEnd Sub程序运行后，单击窗体，输出结果为_10_。 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() For i = 1 To 4 x = 4 For j = 1 To 3 x = 3 For k = 1 To 2 x = x + 6 Next k Next j Next i Print xEnd Sub程序运行后，单击命令按钮，输出结果是_15_。 在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Nam

21、e属性为Command1），然后编写如下事件过程：Private Sub Command1_Click() x = 0 Do While x 50 x = (x + 2) * (x + 3) N = N + 1 Loop Text1.Text = Str(N) Text2.Text = Str(x)End Sub程序运行后，单击命令按钮，Text1中显示的值是_2_；Text2中显示的值是_72_。 在窗体上画一个名称为Command1的命令按钮。然后编写如下事件过程Private Sub Command1_Click() Dim a As String a=123456789 For i=1 To 5 Print Space(6-i);Mid$(a,_6-i_ ,2*i-1) Next iEnd Sub程序运行后，单击命令按钮，窗体上的输出结果是 5 456 34567 2345678 123456789 描述X是小于100的非负整数的Visual Basic表达式是x_=0_。