VB操作题库-星级全套文字版(9)

Line4.Visible = True End Sub *****第18套 简单应用题★★★

（1）在考生文件夹下有一个工程文件sjt3.vbp，其功能是：

Line4.Visible = False End Sub 1）单击‘读数据’按钮，则把考生文件夹下in3.dat文件中的100个0-999之间的整数读入数组a中；

2）单击‘计算’按钮，则对这100个整数中的所有水仙花数（当一个数的值等于该数中各位数字的立方和时，此数被称为水仙花数。如：153＝1^3+5^3+3^3，所以153就是一个水仙花数）求平均值，并对该平均值截尾取整后显示在文本框Text1中。窗体中给出了所有控件（如图所示），以及‘读数据’按钮的Click事件过程，请为‘计算’按钮编写适当的事件过程实现上述功能。

注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 Dim a(100) As Integer Private Sub Command1_Click() Dim k As Integer

Open App.Path & \ For k = 1 To 100 Input #1, a(k) Next k Close #1 End Sub

Private Sub Command2_Click() '*****考生应完成的程序***** Dim k ,c1, c2, c3, avg, num as integer Avg=0 Num=0 For k=1 to 100 C1=int(a(k)/100) C2=int((a(k)-c1*100)/10) C3=a(k) mod 10

If a(k)=c1^3+c2^3+c3^3 then Avg=avg+a(k) End if Next k

Avg=int(avg / num) Text1.text=avg ***** End Sub *****

Private Sub Form_Unload(Cancel As Integer) Open App.Path & \ Print #1, Text1.Text Close #1 End Sub

（2）已知出租车行驶不超过4公里时一律收费10元。超过4公里时分段处理，具体处理方式为：15公里以内每公里加收1.2元，15公里以上每公里收1.8元。在考生文件夹下有一个工程文件sjt4.vbp。程序的功能是：单击‘输入’按钮，将弹出一个输入对话框，接收出租车行驶的里程数；单击‘计算’按钮，则可根据输入的里程数计算应付的出租车费，并将计算结果显示在名称为Text1的文本框内。

文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。

Dim s As Integer

Private Sub Command1_Click()

s = Val(InputBox(\输入里程数（单位：公里）\End Sub

Private Sub Command2_Click() If s > 0 Then

'Select Case ? ***** s ***** Case Is <= 4

'? ***** f=10 ***** Case Is <= 15

'f = 10 + ? ***** (s-4)*1.2 ***** 'Case ?

'f = 10 + ? + (s - 15) * 1.8 ***** 13.2 ***** End Select Text1.Text = f Else

MsgBox \请单击“输入”按钮输入里程数！\ End If End Sub

*****第18套 综合应用题★★★

在考生文件夹下有一个工程文件sjt5.vbp，窗体上有二个标题分别是“读数据”和“统计”的命令按钮。请画二个标签，名称分别为Label1和Label2，标题分别为“出现次数最多的字母是”和“它出现的次数为”；再画二个名称分别为Text1和Text2，初始值为空的文本框，如图所示。程序功能如下：

1）单击“读数据”按钮，则将考生文件夹下in5.dat文件的内容读到变量s中（此过程已给出）；

2）单击“统计”按钮，则自动统计in5.dat文件中所含各字母（不区分大小写）出现的次数，并将出现次数最多的字母显示在Text1文本框，它所出现的次数显示在Text2文本框内。

“读数据”按钮的Click事件过程已经给出，请为“统计”按钮编写适当的事件过程实现上述功能。

注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行统计，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 Option Base 1 Dim s As String

Private Sub Command1_Click()

Open App.Path & \ s = Input(LOF(1), #1) Close #1 End Sub

Private Sub Command2_Click() ' ***** 考生编写的程序 ***** Dim n(26) ,i, k as integer For i=1 to 26 n(i)=0 Next i

For i=1 to len(s)

K=asc(lcase(mid(s,i,1)))-asc(―a‖)+1 If k>0 and k<=26 then \\ n(k)=n(k)+1 End if

Next i K=1 For i=2 to 26 If n(i)>n(k) then K=i End if Next i

Text1.text=chr((asc(―a‖)+k-1) Text2.text=n(k) ***** End Sub *****

Private Sub Form_Unload(Cancel As Integer) Open App.Path & \ Print #1, Text1.Text, Text2.Text Close #1 End Sub

第19套 基本操作题★★

（1）在名称为Form1的窗体上添加1个名称为Shape1的圆角矩形，高、宽分别为1000、2000。请利用属性窗口设置适当的属性以满足下列要求：

①圆角矩形中填满绿色(颜色值为：&H0000FF00&或&HFF00&)； ②窗体的标题为\圆角矩形\,字体为\仿宋_GB2312\。 程序运行后的窗体如图所示。

注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1.vbp，窗体文件名保存为sjt1.frm。

（2）在考生文件夹下有一个工程文件sjt2.vbp。窗体中已含有除计时器外的其他控件，还有一个过程sub1，其功能是按照Text1中的通话时间计算通话费，并将其显示在Text2中。

程序运行时，单击\通话开始\按钮，则在Text1中累加通话时间(每隔1秒，文本框中的数加1)，单击\通话结束\按钮，则停止通话时间的累加；单击\计算通话费\按钮，则调用过程sub1。

要求：

①在窗体上画一个计时器，如图所示，并通过属性窗口设置适当属性。 ②编写三个按钮的Click事件过程。 ③编写计时器的事件过程。

注意：要求程序中不得使用变量，每个事件过程中只能写一条语句，\计算通话费\按钮的事件过程中只允许调用过程sub1。不得修改已经存在的程序和控件属性，最后把文件按原文件名存盘。

Private Sub Command1_Click() Timer1.Enabled = True Private Sub Command2_Click() Timer1.Enabled = False

End Sub Private Sub Command3_Click() Call sub1 End Sub

*****第19套 简单应用题★★

End Sub Private Sub Timer1_Timer() Text1.Text = Text1.Text + 1 End Sub （1）在考生文件夹下有一个工程文件sjt3.vbp。程序运行时，单击窗体则显示如图所示的图案。请去掉程序中的注释符，把程序中的?改为正确的内容。

注意：不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。 Private Sub Form_Click()

' For i = 1 To ? ***** 5 ***** For j = 1 To 6 - i Print \； Next j

' For j = 1 To ? ***** 2*i-1 ***** Print \； Next j Print Next i

For i = 1 To 4

' For j = 1 To ? ***** i+1 ***** Pri …… 此处隐藏：2622字，全部文档内容请下载后查看。喜欢就下载吧 ……