计算机二级 - VB - 查题吧

问答题

Private Sub Command1 _Click()<br>For i = 1 To 20<br>x=Int(【】*200+ 100)<br>If【】 = 0 Then<br>Print x<br>S = S +【】<br>End If<br>Next I<br>Print "Sum = "; S<br>End Sub

问答题

软件工程是计算机科学中的一个分支，其主要思想是在软件生产中用【】的方法替代传统手工方法。

问答题

已知B的ASCII码为66，以下程序统计由键盘输入的字符串中各英文字母的使用次数<br>Dim pp (65 To 90)<br>For i = 65 To 90<br>pp(i) =0<br>Next<br>x$ = InputBox(" Enter a string", x$ )<br>x$ = UCase$ (x$)<br>For i = 1 To Len (x$)<br>n =Asc(Mid$ (x$, i, 1) )<br>If n＞= 65 And n＜ = 90 Then<br>【】<br>End If<br>Next<br>For i = 65 To 90<br>Ifpp(i)＞0Then<br>Print Chr$ (i) ; pp (i)<br>End If<br>Next

问答题

窗体上有名称为Commandl的命令按钮及名称为Textl、能显示多行文本的文本框。程序运行后，如果单击命令按钮，则可打开磁盘文件c：＼test．txt，并将文件中的内容(多行文本)显示在文本框中。下面是实现此功能的程序，请填空。<br>Private Sub Commandl_Click()<br>Textl=“”<br>Number=FreeFile<br>Open“c：＼test．txt”For Input As Number<br>Do While Not EOF(【】)<br>Line InputNumber，s<br>Textl．Text=Textl．Text+【】+Chr(13)+Chr(10)<br>Loop<br>Close Number<br>End Sub

问答题

以下程序代码实现单击命令按钮Command1时生成20个(0，100)之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。<br>Dim arr(1 To 20)<br>For i=1 To 20<br>arr(i)=【】<br>Next i<br>Sum=0<br>For Each X In【】<br>If X＞50 Then<br>Print Tab(20)；X<br>Sum=Sum+X<br>End If<br>Next X<br>Print Tab(20)；“Sum＝”；Sum

问答题

阅读以下程序：<br>Private Sub Form_click()<br>Dim k, n, m As integer<br>n = 20<br>m = 1<br>k = 1<br>Do While k ＜= n<br>m=m+2<br>k = k + 1<br>Loop<br>Print m<br>End Sub<br>单击窗体程序的执行结果是【】。

问答题

在窗体上创建三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“导入数据”、“计算”和“保存数据”，以及一个文本框，名称为Text1。编写事件过程，使得在运行时，单击“导入数据”按钮，从考生文件里读入data.txt文件(其中有20个整数)，在Text1中显示。单击“计算”，采用冒泡算法排序。单击“保存数据”，存入out.txt文件中。程序运行界面如图29所示。

问答题

设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从1到5，第二维下标从-2到6，则相应的数组声明语句为【】

问答题

在考生文件夹内(C:\ylc)有一个工程文件ylc.vbp。在窗体上有一个文本框，名字为Text1，以及两个命令按钮，名字分别为Command1和Command2，标题分别为Search和Save。还有一个函数过程Search(a)，在程序中可以直接调用该函数，其功能为判断整型参数number是否为质数。如果是则返回True，否则返回False。编写一个事件过程，实现以下功能：运行时，在文本框内输入一个正整数。单击Search按钮后，找到小于该正整数的第一个素数，显示在 Text1中；单击“Save”，则把Text1中的计算结果存入考生文件夹下的out.txt文件中。程序运行后如图27所示。要求实现题目给出的功能，并将文件保存在考生文件夹下，工程文件名为 ylc.vbp。

问答题

刚建立工程时，使窗体上的所有控件具有区别于默认值的相同的字体格式，应对的属性进行设置。

11