计算机二级 - VB - 查题吧

问答题

在窗体上画1个命令按钮和1个文本框，其名称分别为Commandl和Textl，然后编写如下代码：<br>Dim Save All As String<br>Private Sub Commandl_C1iCk()<br>Text1.Text=Left(UCase(SaveAU)，4)<br>End Sub<br>Private Sub Textl_KeyPress(KeyAscii As Intege)<br>SaveA11=Save All+Chr(KeyAscii)<br>End Sub<br>程序

问答题

下列过程的功能是：在对多个文本框进行输入时，对第1个文本框(text1)输入完毕后用回车键使焦点跳到第2个文本框(text2)，而不是Tab键来切换。请完成该程序。<br>Private Sub Textl_(eyDown(Keycode As Integer，Shift As Integer)<br>If [14] Then<br>Text [15]<br>End If<br>End Sub

问答题

根据条件，回答 38～40 题。<br>上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。请填空。<br>第 38 题请填写【1】处答案。

问答题

下面程序段的输出结果是【】。<br>For X=1.5 To 5 Step 1.5<br>Print X；<br>Next X

问答题

如果在菜单标题的某个字母前面输入一个字符“【】”，就会使该字母成为热键字母；如果建立菜单时，在标题文本框中输入一个字符“【】”，那么菜单显示时就会形成一行分隔符。

问答题

运行下列程序，最后在窗体中输出【】。<br>Private Sub command1_Click()<br>a=65 : b = 17<br>a = a Mod b ^ 2<br>a = a \ 4<br>Print a<br>End Sub

问答题

窗体如图所示，其中汽车是名称为Imagel的图像框，命令按钮的名称为Command1，计时器的名称为Timer1，直线的名称为Linel。程序运行时，单击命令按钮，则汽车每0.1秒向左移动100，车头到达左边的直线时停止移动。请填空完成下面的属性设置和程序，以便实现上述功能。<br>1)Timer1的Interval属性的值应事先设置为【】<br>2)Private Sub Command1_ Click()<br>Timer1. Enabled=True<br>End Sub<br>Private Sub Tuner1_Timer()<br>If Imagel. Left＞【】 Then<br>Image1.Left= 【】 -100<br>End If<br>End Sub

问答题

下面程序是用来打印九九乘法表的，请填空。<br>Private Sub Form_Click()<br>Dim flag As Integer,i As Integer,j As Integer,Str1$<br>Str1＝“”<br>For i＝1 To 9<br>【】<br>For j＝1 To 9<br>If【】 Then<br>str1=str1+Str$(j)+“”+Str$(i)+“=”+Str$(Val(ij))<br>Else<br>str1＝str1 & Chf(13)<br>Exit For<br>End If<br>Next j<br>Next i<br>Print str1<br>End Sub

问答题

窗体上已有名称分别为Drivel、Dirl、Filel的驱动器列表框、目录列表框和文件列表框，且有1个名称为Textl的文本框。以下程序的功能是：将指定位置中扩展名为“．txt”的文件显示在Filel中，如果双击FileI中的某个文件，则在Textl中显示该文件的内容。请填空。<br>Private Sub Form_Load()<br>Filel．Pattern=<br>End Sub<br>Private Sub Drivel_Change()<br>Dirl．Path=Drivel．Drive<br>End Sub<br>Private Sub Dirl_Change()<br>Filel．Path—Dirl．Path<br>End Sub<br>Private Sub Filel_DblCliek() ‘<br>Dim s As String姜1<br>If Right(Filel．Path，1)=“＼”Then<br>f_name!=Filel,Path+Filel．FileName<br>Else<br>f_name=Filel．Path+“＼”+File1．FileName<br>End 1f<br>Open f_name As1<br>Textl．Text=“”<br>Do while<br>s=Input(1，1)<br>Textl．Text=Textl．Text+s<br>Loop<br>Close-1<br>End Sub

问答题

有一个工程文件ylc6.vbp，要求程序运行后，如果多次单击列表框中的项，则可同时选择这几项。如果单击“显示”按钮，则在窗体上输出所有选中的列表项，如图22所示。<br>要求修改列表框属性，运行时可以多选，并去掉程序中的注释，改为正确的内容。实现上述功能，不得修改程序的其他部分。<br>题目提供的Command1对象的Click对象源代码如下：<br>Private Sub Command1_Click()<br>Dim i As Integer<br>For i=0 To ？<br>If ？ Then<br>Form1.？ (List1.List(i))<br>End If<br>Next i<br>End Sub<br>注意：存盘时必须存放在考生文件夹下，工程文件名为ylc6.vbp，窗体文件名为ylc6.frm。

12