题目内容
（请给出正确答案）
阅读以下说明及Visual Basic程序代码，将应填入(n)处的字句写在对应栏内。
【说明】
以下程序为求行列式X(5,5)的值S。
【Visual Basic代码】
Private Function col (byval x (5,5 ) as integer ) as long
dim fesult as long
dim temp as long
dim I as integer
dim j as integer
dim k as imeger
result = 0
for I = to 5
(1)
for j = 1 to 5
if I+j＞6 then
k= (1+j ) mod 5
else
k=1
endif
temp=temp*x (k,j )
(2)
result=(3)
(4)
(5)
End function
如果结果不匹配，请 联系老师 获取答案
更多“阅读以下说明及Visual Basic程序代码，将应填入（n…”相关的问题
阅读以下应用说明及Visual Basic程序代码，根据要求回答问题1至问题4。
[说明]
某文件管理系统的图片浏览器如图3-19所示。运行程序时，用户只要通过驱动器列表框、目录列表框和文件列表框，选择文本文件所在的驱动器、文件夹及相应的文件名后，在图像框中将显示出相应的文件图像。
在开发过程中，假设驱动器列表框名为drvFile，目录列表框名为 dirFile，文件列表框名为filFile，选择文件类型组合框名为cboFile，图像框名为IMG nClick=over(this) title=放大Show。
![阅读以下应用说明及Visual Basic程序代码，根据要求回答问题1至问题4。[说明] 某文件管理](https://img2.soutiyun.com/shangxueba/ask/11136001-11139000/11136133/ct_crppxm_crppxprogxvb_00204(20096).jpg)
图3-19 图片浏览器
[Visual Basic程序]
Private Sub Form_Load ()
IMG nClick=over(this) title=放大Show.Stretch=True
cboFile.Addltem "位图文件(*.bmp)"
cboFile.Addltem "图标文件(*.ico)"
cboFile.Addltem "图元文件(*.wmf)"
cboFile.Addltem "JPEG文件(*.jpg)"
cboFile.Addltem "GIF文件(*.gif)"
cboFile.ListIndex = 0
(1)
End Sub
Private Sub drvFile_Change ()
(2)
End Sub
Private Sub dirFile_Change ()
(3)
End Sub
Private Sub cboFile_Click ()
(4)
Case 0
filFile. Pattern= "*.bmp"
Case 1
filFile. Pattern= "*.ico"
Case 2
filFile. Pattern= "*.wmf"
Case 3
filFile. Pattern= "*.jpg.
Case 4
filFile. Pattern= "*.gif"
End Select
End Sub
Private Sub filFile_Click()
If (5) Then
IMG nClick=over(this) title=放大Show. Picture= LoadPieture(filFile. Path+ filFile.FileName)
Else
IMG nClick=over(this) title=放大Show. Picture= LoadPicture((6) + "\" + (7) )
End If
End Sub
请根据[说明]和图3-19的显示结果，从以下备选答案中为程序(1)～(7)空缺处选择正确的答案。
[备选答案]
A. filFile.path B. dirFile.Path=drvFile.Drive
C．Right(filFile.Path，1) = "\" D．filFile.Pattern ="*.bmp"
E．filFile.Path = dirFile.Path F．filFile.FileName
G．Select Case cboFile.ListIndex
阅读以下说明及Visual Basic 程序代码，将应填入(n)处的字句写在对应栏内。
[程序5.1说明]
下列程序运行时，当单击窗体后，从键盘输入一个字符，判断该字符是字母字符、数字字符还是其他字符，并做相应的显示。窗体上无任何控件，并禁用Ase和Chr函数，Select Case语句中禁用枚举值。
[Visual Basic代码]
Private Sub Form. Load ()
Dim x As String*1
X=(1) (“请输入单个字符”，“字符”)
Select Case UCase ((2) )
Case (3)。
Print X+“是字母字符”
Case (4)
Print X+ “是数字字符”
Case Else
Print X+“是其他字符”
End Select
[程序5.2说明]
在窗体上画一个名称为Timer1的计时器和一个名称为Labe11的标签。当运行程序后，将在标签中显示当前时间的数字时钟(包括时：分：秒)。
[Visual Basic代码]
Private Sub Fom_Load ()
Timer1.Interval=1000
EndSub
Private Sub Timer1_ timer() (5)
EndSub
●试题五
阅读以下应用说明、属性设置及Visual Basic程序代码，将应填入(n)处在字句写在答题纸的对应栏内。
【说明】
本应用程序的运行窗口如图2所示。
只要用户单击"闪烁"按钮，文字"欢迎光临"就会以0．3秒消失、0．3秒显示反复进行闪烁；单击"停止"按钮时，闪烁停止，恢复图示的初态。
在开发过程中，需要设置的属性如表1所示。
在开发过程中，需要编写的程序代码如下：
【程序】
Private Sub CmdF_Click()
Timer1． (3) =True
Labe1．Visible=False
End Sub
Private Sub Timer1_Timer()
(4) =not Label.Visible
End Sub
Private Sub CmdT_Click()
Timer1．Enabled= (5)
Labe1．Visible=true
End Sub
●试题六
阅读以下应用说明及Visual Basic部分程序代码，将应填入(n)处的字句写在答题纸的对应栏内。
【说明】
单击窗体上的"测试"(cmdTest)按钮，出现一个输入框，要求输入一串字符，将该字符串中的非字母字符删除后，显示在窗体中的一个文本框(txtShow)中。
【程序代码】
Private Sub cmdTest_Click()
Dim strT1，strT2 As String
Dim strCh As (1)
Dim intL As Integer
Dim intI As Integer
strT1= (2) ("请输入一串字符"，"字符串输入")
intL= (3)
strT2=″″
For intI=l To intL
strCh=Mid(strT1，intI，1)
If(strCh＞"A"And (4) ) Or (strCh＞"a" And suCh＜"z")Then
strT2=strT2+strCh
End If
Next intI
txtShow．Text= (5)
End sub
阅读以下关于某绘图系统的技术说明、部分UML类图及Visual Basic程序，将Visual Basic程序中(1)～(6)空缺处的语句填写完整。
【说明】
某绘图系统定义了一个抽象类Ishape，现有3个类Cpoint，CLine和Ccircle，它们都具有IShape界面。相应的类图关系如图5-11所示。
.jpg)
已知某第三方库已经提供了XCircle类，且完全满足CCircle图元显示时所需的功能。【Visual Basic代码6-1】是抽象类IShape类模块内容。【Visual Basic代码6-2】实现了类CCircle的IShape界面，并使用了XCircle提供的显示功能。
XCircle提供的显示功能方法接口为displayIt。
【Visual Basic代码6-1】
Publie Color As Long
Sub draw()
'方法体不包括可执行语句
End Sub
Sub move(stepx As Single, stepy As Single)
'方法体不包括可执行语句
End Sub
【Visual Basic代码6-2】
(1)
Private color As Long
… '其他定义省略
Private ridged As (2)
Private Sub Class_Initialize()
Set bridged=(3)
End Sub
Private Property (4) ()As Long
IShape_Color=color
End Property
Private Property (5) (ByVal newColor As Long)
Color=newColor
End Property
Private Sub IShape_draw() 使用XCircle提供的显示功能
(6)
End Sub
Private Sub IShape_move(stepx As Single, stepy As Single)
… '省略描述
End Sub
阅读以下说明及Visual Basic程序代码，将应填入(n)上处的字句写在对应栏内。
[说明]
字符组合：程序界面如图示，在文本框Text1中输入若干个任意字符，单击“颠倒”按钮，将这些字符按相反的顺序显示在标签Lable1 中，并在标签Labs1 2处显示字符的个数。例如：输入abcabc2，显示为 2cbabca，组成字符数为4。
![阅读以下说明及Visual Basic程序代码，将应填入（n)上处的字句写在对应栏内。[说明] 字符](https://img2.soutiyun.com/shangxueba/ask/11112001-11115000/11114255/ct_crppxm_crppxprogxvb_00093(20093).jpg)
[Visual Basic 代码]
Private Sub cmdshow_ Click (
Dim n As Integer
Dim I As Integer
Dim str1 As String
N=Len (Text1.Text )
For I=n To Step- 1
Str1=(1)
Next I
Labe11. Caption=Str1
End Sub
Private Sub cmdcount_ Click ()
Dim n As Integer
Dim in As Integer
Dim i As Integer
Dim j As Integer
Dim flag As Integer
Dim str1 As Integer
Dim str2 As Integer
N=(2)
Str1 =Mid＄ (Text1.Text, i. 1
For I =2 To n
Str2=mid＄ (Text1,Text,I,1
M=Len (str1)
(3)
For j=1 To m
If (4) Then flag= 1; Exit For
Next j
If flag＜＞1 then str1=str1& str2
Next I
Lable2.Caption=(5)
End Sub
阅读以下应用说明及Visual Basic程序代码，将应填入(n)处的字句写在对应栏内。
【说明】
已知窗体上有两个名为cmdGene和cmdSort的命令按钮。单击cmdCene按钮时，随机产生10个[1,100]范围内的整数并将它们放在数组intA中；单击cmdSort按钮时，用选择法排序这10个数并输出。
【程序代码】
Dim intA(1 To 10)As integer
Private Sub cmdGene_Click()
Dim intl As Integer
Randomize
For intl = 1 To 10
intA(intl) =(1)
Next intl
End Sub
Private Sub cmdSort_Click()
Dim intl, intJ,intMin, intTemp As Integer
For intl = 1 To 9
intMin = intA(intl)
For intJ=(2) To 10
If intA(intJ) ＜ intMin Then
Temp = intA(intJ)
intA(intJ)=(3)
intMin = intTemp
End If
Next intJ
(4)
(5)
For intl = 1 To 10
Print Str(intA(intl))+" ";
Next intl
Next lntl
End Sub
阅读以下应用说明及Visual Basic部分程序代码，将应填入(n)处的字句写在对应栏内。
【说明】
本应用程序是一个小写数字转换成大写格式的转换器，其运行窗口如图5所示。
.jpg)
窗口中有两个标签(lblNumber和lblChinese)、两个文本框(txtNnmber和txtChinese)和一个命令按钮(cmdChange)。当单击按钮cmdChange时，将文本框txtNumber中数字转换成中文大写，并显示在文本框txtChinese中。例如，在文本框txtNumber输入0076845，单击cmdChange按钮，将在文本框txtChinese中显示“柒万陆仟捌佰肆拾伍”。
程序中调用的函数CChinse(Strdigit As String)的功能是先删除字符串的所有前导0，再调用函数Change(Strdigit As String)，将数字字符串Strdigit转换成中文大写格式。
为了防止用户在文本框txtNumber输入非数字形式的字符，程序将以空字符代替所输入的非数字有形字符。
【程序】
Private Function Transfer(Strdigit As String)As String
′完成小写向大写的转换，这段代码省略
End Function
Private Function CChinese(Strdigit As String)As String
Dim intLen,intCounter As Integer
intLen = Len (Strdigit)
If intLen＞0 Then
intcounter = 0
Do '过滤数字串Strdigit的前导0
intcounter = intcounter + 1
Loop Until Mid(Strdigit,(1))
intLen =(2)
Strdigit =(3) (Strdigit,intLen)
CChinese = Transfer(Strdigit)
End If
End Function
Private Sub cmdChange_Click()
txtChinese.Text=CChinese((4)) '调用Cchinese函数
End Sub
Private Sub txtNumber_KeyPress(KeyAscii As Integer)
Select Case KeyAscii '根据输入字符的ASCII码的值进行判断
Case KeyAscii＜32 '保留输入的控制字符
Case 48 To 57 '保留输入的数字字符
Case Else '其他情况以空字符代替
(5)=0
End Select
End Sub
●试题七
阅读以下应用说明及Visual Basic程序代码，将应填入(n)处的字句写在答题纸的对应栏内。
【说明】
已知窗体上有两个名为cmdGene和cmdSort的命令按钮。单击cmdGene按钮时，随机产生10个［1，100］范围内的整数并将它们放在数组intA中；单击cmdSort按钮时，用选择法排序这10个数并输出。
【程序代码】
Dim intA(1 To 10)As Integer
Private Sub cmdGene_Click()
Dim intI As Integer
Randomize
For intI=1 To 10
intA(intI)= (1)
Next intI
End Sub
Private Sub cmdSort_Click()
Dim intI，intJ，intMin，intTemp As Integer
For intI=1 To 9
intMin=intA(intI)
For intJ= (2) To 10
If intA(intJ)＜intMin Then
Temp=intA(intJ)
intA(intJ)= (3)
intMin=intTemp
End If
Next intJ
(4)
(5)
For intI=1 To 10
Print Str(intA(intI))+" "；
Next intI
Next IntI
End Sub
●试题五
阅读以下应用说明及Visual Basic部分程序代码，将应填入(n)处的字句写在答题纸的对应栏内。
【说明】
在窗体上画一个名称为Combo1的组合框，画两个名称分别Label1、Label2及Caption属性分别为"城市名称"和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示"已成功添加输入项"；如果存在，则在Label2中给出提示"输入项已在组合框中"。
【程序】
Private Sub Combo1_ (1) (KeyAscii As Integer)
If KeyAscii= (2) Then
For i=0 To (3)
If Combo1．Text= (4) Then
Label2．Caption="输入项已在组合框中"
Exit Sub
End If
Next i
Label2．Caption="已成功添加输入项"
Combo1． (5) Combo1．Text
End If
End Sub
