首页 > 软考
题目内容 （请给出正确答案）
[主观题]

●试题七 阅读以下说明及Visual Basic程序代码，将应填入（n)处的字句写在答题纸的对应栏内。 【说

●试题七

阅读以下说明及Visual Basic程序代码，将应填入(n)处的字句写在答题纸的对应栏内。

【说明】

某学校举办了一场奥运知识竞赛，参加竞赛的选手为200名，1~200为选手编号。竞赛时间为9：00～11：00。8道竞赛题目依次从"A"～"H"编号，选手可按任意次序答题，每完成一道题目，可立即提交答案。若答案正确(Y)，则选择其他题目进行解答，否则，可继续做该题目或选择其他题目进行解答，直至竞赛结束。

选手提交答案的情况及判定结果由专人即时录入，录入数据包括提交答案的时间、选手编号、题目编号(A～H)、是否正确(Y／N)等。

对竞赛情况进行统计和排名的规则如下：

1．若选手X在竞赛时提交的题目P解答正确，则解答该题目所用时间计算如下：

解答题目P的用时=提交题目P正确的时间-竞赛的开始时间+罚时罚时=提交题目P错误解答的次数×20例如：表1中14号选手在10：27提交了题目A的正确解答，因此该选手正确解答该题目所用时间P为87分钟，由于他在09：37和09：52两次提交了题目A的错误解答，因此罚时为(2×20)分钟=40分钟，所以14号选手解答题目A的用时=(87+40)分钟=127分钟。

2．已经提交正确答案的题目再次提交时不再计算。

3．竞赛结束时，选手的总用时为所有解答正确的题目用时累加所得，解答不正确的题目不计时。

4．排名时，完成题目数量多者排名靠前；若完成的题目数相同，则用时少者排名靠前；若完成的题目数和所用时间均相等，则名次相同；完成题目数为0的选手不参加排名。

本应用程序的运行窗口如图3所示。

●试题七 阅读以下说明及Visual Basic程序代码，将应填入（n)处的字句写在答题纸的对应栏内

图3

窗口中的两个文本框为Txt_time和Txt_player，分别用于录入提交答案的时间和选手编号。组合列表框Combol提供题目编号(A～H)，录入时从中选择。检查框Chk_yn用于输入解答是否正确信息。当单击"确定"按钮(Cmd_comfirm)时，录入的提交信息加入列表框Listl中，排名情况在列表框List2输出。单击"关闭"按钮时退出应用程序。

在开发过程中，需要编写的部分程序代码如下：

【程序】

Private Type Info

No As Integer′选手编号

Num As Integer′完成题目数量

Time As Integer′完成题目的总用时

d (8) As Integer′d用于记录提交第i个题目错误答案的次数

a (8) As Boolean′a用于记录第i个题目是否已经提交正确答案

End Type

Dim R(201)As info′R［j］用于统计编号为j的选手提交答案的情况

Dim MaxIndex As Integer′MaxIndex记录提交答案的选手中编号最大者

Private Sub Form_Load()

For i=1 to 8

Combo1．AddItem chr((1) )

Next

Combo1．Text=Combo1．List(0)：txt_time．Text=""：txt_player．Text=""

For i=1 To 200

R(i)．num=0：R(i)．time=0：R(i)．no=i

Forj=1 To 8

R(i)．d(j)=0：R(i)．a(j)=False

Next j，i

End Sub

Private Sub cmd_confirm_Click()

Dim h，m，k，time As Integer，ch，pass，s1 As String

K=Instr(txt_time．text，"∶")：If k＜2 Then Goto error1

H=Val(Left(txt_time．Text，k-1))：m=Val(Mid(txt_time．Text，k+1))

If h＞11 Or h=11 And m＞0 Or m＞=60 Then goto errorl

Time= (2) ′计算答题时间，以分钟为单位

If txt_plater．text＜1 or txt_player．text＞200 Then Goto error1

ch= (3)

pass=IIf(chk_yn． (4) =0，"N"，"Y")

s1=txt_time．Text+Space (4) +txt_player．Text

s1=s1+Space(10-Len(txt_player．Text))+ch+Space (8) +pass

List1．Additem s1

K=Val(txt_player．Text)′k为选手编号

R(k)．no=k′编号为k的选手的提交信息记录在下标为k的数组元素中

If k＞maxindex Then maxindex=k

M=Asc(ch)-Asc("a")

If pass＜＞"Y"Then′编号为k的选手提交第m个题目的解答不正确

R(k)．d(m)=R(k)．d(m)+1

Else If R(k)．a(m)＜＞True Then′已经提交正确的题目的解答不再计算

R(k)．a(m)=true：R(k)．num=R(k)．num+1

R(k)．time=R(k)．time+ (5)

Call statistic′调用过程statistic进行实时排名和输出

End If

Exit Sub

error1：MsgBox"录入信息有错误!"，vbOKOnly

End Sub

查看答案
答案
收藏
如果结果不匹配，请 联系老师 获取答案
您可能会需要：
您的账号：，可能还需要：
您的账号：
发送账号密码至手机
发送
重置密码 查看订单 联系客服
安装优题宝APP，拍照搜题省时又省心！
更多“●试题七 阅读以下说明及Visual Basic程序代码，将…”相关的问题
第1题
●试题七 阅读以下应用说明及Visual Basic程序代码，将应填入（n)处的字句写在答题纸的对应栏内。

●试题七

阅读以下应用说明及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

Print

End Sub

点击查看答案
第2题
●试题六 阅读以下应用说明及Visual Basic部分程序代码，将应填入（n)处的字句写在答题纸的对应栏

●试题六

阅读以下应用说明及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

点击查看答案
第3题
●试题五 阅读以下应用说明、属性设置及Visual Basic程序代码，将应填入（n)处在字句写在答题纸的对

●试题五

阅读以下应用说明、属性设置及Visual Basic程序代码，将应填入(n)处在字句写在答题纸的对应栏内。

【说明】

本应用程序的运行窗口如图2所示。

●试题五 阅读以下应用说明、属性设置及Visual Basic程序代码，将应填入（n)处在字句写在答

只要用户单击"闪烁"按钮，文字"欢迎光临"就会以0．3秒消失、0．3秒显示反复进行闪烁；单击"停止"按钮时，闪烁停止，恢复图示的初态。

在开发过程中，需要设置的属性如表1所示。

●试题五 阅读以下应用说明、属性设置及Visual Basic程序代码，将应填入（n)处在字句写在答

在开发过程中，需要编写的程序代码如下：

【程序】

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

点击查看答案
第4题
●试题五 阅读以下应用说明及Visual Basic部分程序代码，将应填入（n)处的字句写在答题纸的对应栏

●试题五

阅读以下应用说明及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

点击查看答案
第5题
●试题八 阅读以下说明及Visual Basic部分程序代码，将应填入（n)处的字句写在答题纸的对应栏内。

●试题八

阅读以下说明及Visual Basic部分程序代码，将应填入(n)处的字句写在答题纸的对应栏内。

【说明】

本程序是一个可进行数制转换的应用程序，图1所示是其运行界面。txtDec为TextBox控件名，Lblkes为转换结果labe1控件名。

●试题八 阅读以下说明及Visual Basic部分程序代码，将应填入（n)处的字句写在答题纸的对应

【程序代码】

Option Explicit

Private Function convert(pintDec As Intege，pintS As Integer)As String

Dim intCt As Integer，intR As Integer

Dim strCov As String，strRes As String

intR=pintDec Mod pintS

Do While (1)

strCov=strCov ＆ Str(intR)

(2)

intR=pintDec Mod pintS

Loop

For intCt= (3) To 1 Step-1

strRes=strRes ＆ Mid(strCov，intCt，1)

Next intCt

convert=strRes

End Function

Private Sub cmdQuit_Click()′退出

Unload Me

End Sub

Private Sub optBin_Click()′二进制

lblRes．Caption="转换结果："＆ (4)

End Sub

Private Sub optHex_Click()′十六进制

lblRes．Caption="转换结果："＆ (5)

End Sub

Private Sub optOct_Click()′八进制

lblRes．Caption="转换结果："＆Oct(Val(txtDe

C．Text))

End Sub

点击查看答案
第6题
●试题七 阅读以下说明和Java代码，将解答写入答题纸的对应栏内。 【说明】 下面程序的功能是找出

●试题七

阅读以下说明和Java代码，将解答写入答题纸的对应栏内。

【说明】

下面程序的功能是找出所有三位数中，个、十、百位数字的立方和等于该数本身的三位数并显示。在程序的每条横线处填写一个适当的词或语句，使程序的功能完整。

public (1) class cube_Root{

public static void (2) main(String args［］){

System.out.println("个、十、百位数字的立方和等于该数本身的三位数有：")；

for(int n=100；n＜1000；n++)

{

int a，b，c；

(3)

b=n/10%10；

(4)

if((5) )

System.out.println(n)；

}

}

}

点击查看答案
第7题
阅读以下说明和C++码，将应填入（n)处的字名写在对应栏内。 从下列的3道试题（试题五至试题七)中任选

阅读以下说明和C++码，将应填入(n)处的字名写在对应栏内。

从下列的3道试题(试题五至试题七)中任选1道解答。

如果解答的试题数超过1道，则题号小的1道解答有效。

[说明] 编写程序，把从键盘上输入的一批整数(以-1作为终止输入的标志)保存到文本文件“a: xxk1. dat”中。

(1)

include ＜fstream. h ＞

include ＜ stdlib. h ＞

void main () {

(2)

if (! four) {

cerr ＜ ＜“文件没有找开!” ＜ ＜end1;

exit (1);

}

int x;

cin ＞ ＞x;

while((3)){

(4)

cin＞ ＞x;

}

(5)

}

点击查看答案
第8题
阅读以下应用说明及Visual Basic程序代码，将应填入______处的语句写在答题纸的对应栏内。 [应用说

阅读以下应用说明及Visual Basic程序代码，将应填入______处的语句写在答题纸的对应栏内。

[应用说明9]

本应用程序的运行窗口如图2-6所示。

阅读以下应用说明及Visual Basic程序代码，将应填入______处的语句写在答题纸的对应栏内

窗口中的3个文本框和2个按钮，名称分别为Txt_salary，Txt_base，Txt_tax，Cmd compute和Cmd_quit。运行时，文本框Txt_base中存放的是免税金额基数(应扣除的基本费用)。当用户在文本框Txt_salary中输入月收入(工资或薪金)并单击“计算”按钮 Cmd_compute后，Txt_tax框中就显示计算所得的应纳税额。文本框Txt_base和Txt_ tax在运行时不接受用户输入，Txt_base的内容以灰色显示。

个人工资(或薪金)所得税是按照超额累进的税率来征收的，其计算方法参考试题8。

[程序代码9]

Option Base 0

Private Sub Cmd_compute_Click()

Dim paylevel，taxPrate

paylevel=Array(0，500，2000，5000，20000，40000，60000，80000，100000，1000001)

taxPrate=Array(5，10，15，20，25，30，35，40，45)

K=(1)

S=0

if(K＞0) Then

For j=1 TO 9

If (2) Then

S=S+(paylevel(j)-paylevel(j-1)) * taxPrate(j-1)/100

Else

S=S+((3) ) * taxPrate(j-1)/100

Exit For

End If

Next j

End If

(4)=Str$(S)

End Sub

Private Sub Cmd_quit_Click()

End

End Sub

Private Sub Form_Load()

Txt_tax.Text=“”

Txt_salary.Text=“”

Txt_base.Text=800

Txt_tax.Locked=True

Txt_base.Enabled=(5)

End Sub

点击查看答案
第9题
●试题七 阅读以下说明和Java代码，将解答写入答题纸的对应栏内。 【说明】 下面的程序的功能是利

●试题七

阅读以下说明和Java代码，将解答写入答题纸的对应栏内。

【说明】

下面的程序的功能是利用实现Runnable接口的方法来创建线程，并利用它来执行响应的一些操作。最后使得m的执行结果:100，如图3。

●试题七 阅读以下说明和Java代码，将解答写入答题纸的对应栏内。 【说明】 下面的程序的功能是利●

注意：请勿改动main()主方法和其他已有的语句内容，仅在下划线处填入适当的语句。

class ClassName (1) Runnable{

int n；

(2) {

try{

Threa

D．sleep(2000)；

n=100；

}catch((3) e){}

}

public static void main(String［］args){

try{

ClassName a=new ClassName()；

(4)

thread1. (5) ()；

thread1.join()；

int m=A．n；

System.out.println("m="+m)；

}catch((3) e){}

}

}

点击查看答案
第10题
阅读以下说明及Visual Basic程序代码，将应填入（n)处的字句写在对应栏内。 【说明】 以下程序为求行

阅读以下说明及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

点击查看答案
第11题
●试题七 阅读以下说明和C++代码，将解答写入答题纸的对应栏内。 【说明】 请编写一个函数int SeqS

●试题七

阅读以下说明和C++代码，将解答写入答题纸的对应栏内。

【说明】

请编写一个函数int SeqSearch(int list［］，int start，int n，int key)，该函数从start开始，在大小为n的数组list中查找key值，返回最先找到的key值的位置，如果没有找到则返回-1。请修改程序中画线部分的错误并将不同情况下的输出结果补充完整。

【程序】

文件search.cpp的内容如下：

#include ＜iostream.h＞

int SeqSearch(int list［］，int start，int n，int key)

{

for(int i=start；i＜=n；i++)// (1)

{

if(list［i］=key) // (2)

{

return i；

}

}

return -1；

}

void main()

{

int A［10］；

int key，count=0，pos；

cout＜＜" Enter a list of 10 integers: "；

for(pos=0；pos＜10；pos++)

{

cin＞＞A； // (3)

}

cout＜＜"Enter a key: "；

cin＞＞key；

pos=0；

while((pos=SeqSearch(A，pos，10，key))!=-1)

{

count++；

pos++；

}

cout＜＜key＜＜" occurs "＜＜count＜＜(count!=1？" times":" time")＜＜" in the list."＜＜endl；

}

第一种情况：输入2 3 12 6 8 45 8 33 7 输入key：8

输出： (4)

第二种情况：输入2 3 12 6 8 45 8 33 7 输入key：9

输出： (5)

点击查看答案
搜索
优题宝APP特色功能 语音搜题 智能识别 秒出答案 优题宝APP特色功能 拍照搜题 哪里不会 拍哪里
账号：
你好，希财猫用户 复制账号
首页 题库 指南 APP 我的
退出 登录/注册
发送账号至手机
密码将被重置
获取验证码
发送
温馨提示
该问题答案仅针对搜题卡用户开放，请点击购买搜题卡。
马上购买搜题卡
我已购买搜题卡， 登录账号 继续查看答案
重置密码
确认修改
长沙正则教育科技有限公司  版权所有  ©2024
湘ICP备20014704号-1   营业执照
违法和不良信息举报电话：400-118-7898
举报/反馈/投诉邮箱：deng＃ujigu.com（请将＃替换成@）