注意:
文件必须存放在考生文件夹中,工程文件名为execise17.vbp,窗体文件名为 execise17.frm。程序中不得使用任何变量。
第1题
单击命令按钮,则在窗体上显示ViSBa1 Basic;如果单击窗体,则命令按钮消失。程序运行情况如下图所示。
注意:
在程序中不能使用任何变量;文件必须存放在考生文件夹中,工程文件名为 execise16.vbp,窗体文件名为execise16.frm。
第3题
请填写下列空白以实现运行后形成一个主对角线上元素值为l,其他元素为0的6×6阶矩阵。
Private Sub Command1_Click()
Dim s (6,6)
For i=1 To 6
For i=1 To 6
If i=j Then
_________
Else
___________
End If
Print _________
Next j
Next i
End Sub
第6题
的文本框,有3个命令按钮(名称分别是Cmd1、Cmd2和Cmd3,标题分别是“明文”、“密文”和“保存”),如下图所示。
要求程序运行后,单击“明文”按钮,将文本文件in11.txt(该文件在考生文件夹下)中的文本信息读入文本框Text1中;单击“密文”按钮将Text1中的英文字母加密转换(转换方式为转换成该字母对应字母表中后两个位置的字母。例如,转换前的字母是“a”,则转换后的是“c”,转换前是“E”,转换后是“G”),并将转换后的结果显示到Text1中;单击“保存”按钮,则将转换后的文本框中的文本保存到out11.txt文件中(该文件保存到考生文件夹下)。
要求:
该程序不完整,请在有问号“?”的地方填入正确内容,然后删除问号“?”及所有注释符…”,但不能修改其他部分。存盘时不得改变文件名和文件夹,相应的数据文件也保存到考生文件夹下,否则没有成绩。
第7题
如下图所示。
程序运行后,如果单击“读数”按钮,则利用题目中提供的Readdate1、ReadDate2过程读入in251.txt和in252.txt文件中的各20个整数,分别放入两个数组Arr1和Art2中;如果单击“计算”按钮,则把两个数组中对应下标的元素相加,其结果放入第3个数组中(即:第一个数组的第n个元素与第二个数组的第n个元素相加,其结果作为第3个数组的第n个元素。这里的n为1,2,…,20),然后计算第3个数组各元素之和,并把所求得的和在窗体上显示出来:如果单击“保存”按钮,则调用题目中给出的WriteDate过程将计算结果存入考生文件夹的out25.txt文件中。在考生文件夹下有一个工程文件execise25.vbp,考生必须装入该文件。
注意:
考生不得修改窗体文件中已经存在的程序。存盘时,工程文件名仍为execise25.vbp,窗体文件名仍为execise25.frm。
第8题
以下程序的作用是()
For i = 1 To 9
For j = 1 To 9
se = i & "×" & j & "=" & i * j
Picture1.Print Tab((j - 1) * 9 + 1); se;
Next j
Picture1.Print
Next i
A.打印ASCII码表
B.打印九九乘法表
C.打印加法表
D.以上说法都不正确
第9题
以下程序段的作用是()
Private Sub Picture1_Click( )
Dim asci As Integer, i As Integer
i = 0
For asci = 32 To 126
Picture1.Print Tab(7 * i + 2); Chr(asci); "="; asci;
i = i + 1
If i = 7 Then i = 0: Picture1.Print
Next asci
A.打印ASCII码表,一行7个表达式
B.打印九九乘法表,一行7个表达式
C.打印ASCII码表,一行8个表达式
D.以上说法都不正确
第10题
以下程序段:
Private Sub Form_Load( )
Dim Nop As Integer, Op As String * 1
Num1 = 3
Num2 = 2
Nop = val(Inputbox("请输入1-4之间的整数"))
Select Case Nop
Case 1
Op = "+"
Result = Num1 + Num2
Case 2
Op = "-"
Result = Num1 - Num2
Case 3
Op = "×"
Result = Num1 * Num2
Case 4
Op = "÷"
Result = Num1 / Num2
End Select
Label1= Num1 & Op & Num2 & "=" & Result
End Sub
窗体运行后,输入1,则label1的标题显示结果为()
A.3+2=5
B.3-2=1
C.3×2=6
D.3÷2=1.5
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!