vb复习题3(1)(1)
- 格式：doc
- 大小：53.50 KB
- 文档页数：10
1.表达式25.28 mod 6.99的值是______。
．2. 以下关于动态数组的语句中，正确的是_______。
ReDim a(k+1)．．．．．．．．．．．：．ReDim preserve a(10)．．．．．．．．．．．．．．．．．．3. Sub 过程与Function 函数最根本的区别是___________。
前者无返回值，但后者有．．．．．．．．．．．4. 以下叙述中错误的是________。
．．．．．．．．．．．应用程序只．．．．．能以解释方式执行．．．．．．．．5. 刚建立一个新的标准EXE 工程后，不在工具箱中出现的控件是________。
通用对话框．．．．． 6下面关于顺序文件的描述正确的是___________。
.数据只能以．．．．．ASCII ．．．．．码形式存放在文件中，所以可通过文本．．．．．．．．．．．．．．．．．编辑软件显示．．．．．．7. 以下叙述中正确的是___________。
．．．．．．．．录的长度是固定的．．．．．．．．8. 向已有数据的C:\test\test.txt 文件添加数据，正确的文件打开命令是___________。
Open "C:．．．．．．．\．test ．．．．\．test.txt" For ．．．．．．．．．．．．Append As #．．．．．．．．．511．．．9. 执行以下语句后，k 的值为_____。
．．．．．Dim i As SingleFor i = 0.45 To 2 Step 0.5k = k + 1Next iPrint i;k10. 设有语句X=InputBox("输入数值"，"0"，"示例")，程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是______。
变量．．X ．的值是字符串．．．．．．"10"．．．．11以下关于窗体的描述中，错误的是________。
执行．．Unload ．．．．．．Form1．．．．．语句后．．．，．窗体．．Form1．．．．．消失．．，．但仍在．．．内存中．．．12．程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是_______。
Load ．．．．13. 假定在窗体上建立了通用对话框，其名称为CommonDialog1 ，用下面的语句可以建立一个对话框: CommonDialog1.Action = 2与该语句等价的语句是___________。
CommonDialog1.showsave ．．．．．．．．．．．．．．．．．．．．．．14. 在代码编辑器中,如果一条语句太长,无法在一行内写下(不包括注释),要折行书写,可以在行末使用续行字符______,表示下一行是当前行的继续。
一个空格加一个下划字符（．．．．．．．．．．．． _．）．15. 如果x 是一个正实数，对x 的第3位小数四舍五入的表达式是______。
0.01*Int(100*(x+0.005))．．．．．．．．．．．．．．．．．．．．．．．16. 在以下有关对象属性的叙述中错误的是_______。
Enabled ．．．．．．．属性值设为．．．．．False ．．．．．的控件对象在窗体上将不可见．．．．．．．．．．．．．17. 以下关于图片框控件的说法中，错误的是_______。
用．Stretch ．．．．．．．属性可以自动调整图片框中图形的大小．．．．．．．．．．．．．．．．．二 填空题1. 下面程序是接受用户从键盘上输入的一个正整数，找出大于或等于该数的第一个素数。
Option ExplicitPrivate Sub Command1_Click()Dim n As Integer, k As IntegerDim i As Integern = InputBox("请输入一个正整数") ______．．．．．．k=n ．．．______ ．．．．．．DoFor i = 2 To Sqr(k)If k Mod i = 0 Then Exit ForNext i ．i>sqr(k)．．．．．．．．Exit DoElse ．k=1+k ．．．．．___．．．End IfLoopPrint "大于等于"; n; "的第一个素数是"; kEnd Sub2. 阅读下面程序，当单击窗体后，窗体上输出的是．．．．3．____．．．．。
Private Sub Form_Click()Dim i As Integer, k As IntegerDim a As Integer, b As Integera = 5:b = 1For i = 1 To a + b Step bi = i + 1a = a + ib = b + ik = k + 1Next iPrint a; b; kEnd Sub_．。
3. 运行如下程序后，输出结果为．21 27．．．．Dim i As Integer, y As IntegerFor i = 3 To 15 Step 3y = y + ii = i + 3Next iPrint i; y4. 运行下面的程序，当单击窗体时，窗体上显示的内容为．．63．．__．．。
Private Sub Test(x As Integer)x = x * 2 + 1If x < 8 ThenCall Test(x)End Ifx = x * 2 + 1Print x;End SubPrivate Sub Form_Click()Test 3End Sub5. 以下程序的功能是随机生成20个1到100之间的正整数，用选择法将其按从大到小的顺序排列后输出。
Private Sub Command1_Click()Dim a(20) As Integer, i As IntegerDim j As Integer, temp As IntegerPrint "排序前："For i = 1 To 20a(i) = Int(Rnd * 100) + 1Print a(i);Next iPrintFor i = 1 To 19_．．．．．．．．．．．．t = a(i)a(i) = a(j)___．．．．．．．．．End IfNext jNext iPrint "排序后："For i = 1 To 20Print a(i);Next iEnd Sub6. 执行以下程序段，第一行输出结果是．．．．___．．．，第二行输出结果是_123_．。
．．．Private Sub Form_Click()Dim aDim i As Integera = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)For i = 0 To 3Print a(5 - i);NextPrinta = Array("abc", "123", "def")Print a(1)End Sub7. 运行下列程序，单击命令按钮后，在窗体上输出结果为．9 ．__．．。
．12 15．．．．Option Base 1Private Sub Command1_Click()Dim a(3, 3), s(3)Dim x, i%For i = 1 To 3s(i) = 0For j = 1 To 3a(i, j) = i + js(i) = s(i) + a(i, j)Next jNext iFor Each x In sPrint x;8. 设计一个函数，求任意数的阶乘。
编写通用函数过程如下，请补充程序。
Public Function f(n As Double) As DoubleDim s As DoubleDim i As IntegerIf n < 0 Then Exit Functions=1For i = 1 To n_．．．．．．Next if = sEnd Function9. 运行如下程序段，输出结果为．．_．。
Private Sub command1_click()a = 1:b = 2:c = 3a= a + b: b = b + a: c = b + aIf a <> 3 Or b <> 3 Thena =b - a: b =c - a: c = b + aEnd IfPrint a + b + cEnd Sub10. 执行以下程序，单击命令按钮后，窗体上的输出结果是．-．1．___．．．。
Private Sub Command1_Click()Dim a As Integera = True * 6 + 5Print aEnd Sub11. 执行以下程序，单击命令按钮后，输出结果是．．．．．5 6 7 8 9 10．．．．．．．_____．．．．．。
Private Sub Command1_Click()Dim a(10) As Integer Dim bFor i = 1 To 10a(i) = iNext iFor Each b In aPrint b;Next bEnd Sub。
