计算机二级 - VB - 查题吧

问答题

在窗体上建立一个单选钮组Option1和一个图片框Picture1，如下图所示。当选择不同的单选钮时，图片框中填充不同的图案，请填写程序的空白处，使程序完整。<br>Private Sub Option1_Click()<br>Dim H, W<br>Picture1.Cls<br>Picture1.FillStyle. =<br>W = Picture1.ScaleWidth/2<br>H = Picture1.ScaleHeight/2<br>Picture1.Circle (W, H), W/2<br>End Sub

问答题

设有一个10个元素的数组，下列程序将该数组的第一个元素与第十个元素交换，第二个元素与第九个元素交换……，第五个元素与第六个元素交换，请补充完该程序。<br>Private Sub Commnd1_Click()<br>Dim a(1 To 10)As Integer<br>Dim i As Integer<br>Dim p As Integer<br>Dim t As Integer<br>Dim j As Integer<br>For i=1 To 10<br>a(i)=i<br>Next i<br>For j=1 To 5<br>【】<br>【】<br>【】<br>Next j<br>For i=1 To 10<br>Print a(i)<br>Next i<br>End Sub

问答题

在窗体上面一个命令按钮，其名称为Command1，然后编写如下事件过程：<br>Private Sub Commandl_Click()<br>t=0：m=1：Sum=0<br>Do<br>t=t+【8】<br>Sum=Sum+【9】<br>m=m+2<br>Loop While 【10】<br>Print Sum<br>End Sub<br>该程序的功能是，单击命令按钮，则计算并输出以下表达式的值：<br>1+(1+3)+(1+3+5)+…+(1+3+5+…+39) 请填空。

问答题

下面程序的功能是找出给定的10个数中最大的一个数，最后输出这个数以及它在原来 10个数中的位置。请在下划线处填入适当的内容，将程序补充完整。<br>Option Base 1<br>Private SubForm_Cfick()<br>Dim X<br>x=Array(23，-5,17,38，-31,46,11，8，5，-4)<br>Max=1<br>k=1<br>10 k=k+1<br>ifx(k)＞x(max)then<br>[13]<br>End if

问答题

设有命令按钮Command1的单击事件过程,代码如下:<br>Private Sub Command1_Click()<br>Dim a As Integer<br>For i=1 To 30<br>a(i)=i<br>Next<br>For Each arrItem 【】a<br>If arrItem Mod 7=0 Then Print arrItem;<br>If arritem＞90 Then Exit For<br>Next<br>End Sub<br>请填空。

问答题

语句Print"125＋35"；125＋32的执行结果是【】。

问答题

语句Print 12；Tab；24的执行结果是【】。

问答题

在考生文件夹下有一个工程文件sit4．vbp，其窗体如图所示。该程序用来对在上面的文本框中输入的英文字母串（称为“明文”）加密，加密结果（称为“密文”）显示在下面的文本框中。加密的方法为：选中一个单选按钮，单击“加密”按钮后，根据选中的单选按钮后面的数字n，将“明文”中的每个字母改为它后面的第lt个字母（“z”后面的字母认为是“8t”，“Z”后面的字母认为是“A”），如图所示。窗体中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。<br>注意：不得修改程序中的其他部分和控件的属性。最后将修改后的文件按原文件名存盘。

问答题

在一个工程文件ylc5.vbp，工程中已有一个Aver函数过程，其功能是通过计算求数组的和。程序运行后，在五个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的和，并在窗体上显示出来，运行后如图17所示。<br>提供的函数过程如下：<br>Function Aver(arr()As Integer)As Double<br>Aver=arr (0)+arr(1)+arr(2)+arr(3)+arr(4)<br>End Function<br>注意：存盘时必须存放在考生文件夹下，工程文件名为ylc5.vbp，窗体丈件名为ylc5.frm。

问答题

在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个名称为Command1的命令按钮，并编写如下事件过程：<br>Private Sub Command1_ Click()<br>CommonDialogFlags = cd10FNHideReadOnly<br>CommonDialogFilter= "All Files (.) ｜. ｜Text Files" &<br>"(.txt ｜.txt｜Batch Files (.bat)｜.bat)"<br>CommonDialogFilterIndex = 1<br>CommonDialog1.ShowOpen<br>MsgBox CommonDialog1.FileName<br>End Sub<br>程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是；如果在对话框中选择D盘temp 目录下的te1.txt 文件，然后单击“确定”按钮，则在信息框中显示的提示信息是。

10