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

第1题

●试题五阅读以下应用说明、属性设置及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

点击查看答案

第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)处的字句写在答题纸的对应栏内。

【说明】

已知窗体上有两个名为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

点击查看答案

第4题

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

●试题五

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

【说明】

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

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

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

个人工资(或薪金)所得税是按照超额累进的税率来征收的，方法是：以每月收入总额减去免税金额基数后的余额作为该月的月应纳税所得额，再将应纳税所得额按相应级数采用相应的税率进行累进计算。目前的免税金额基数为800元，税率如表1所示。

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

设一个人的月应纳税所得额为K(元)，用下面的公式计算其应缴纳的个人所得税额S(元)；

若0＜K≤500，则S=K×5%；

若500＜K≤2000，则S=500×5%+(K-500)×10%；

若2000＜K≤5000，则S=500×5%+1500×10%+(K-2000)×15%；

若5000＜K≤20 000，则S=500×5%+1500×10%+3000×15%+(K-5000)×20%；

…

例如，某人某月工资总额为4100元，减去800元后，应纳税所得额为3300元，其应缴纳的个人所得税额为500*5%+1500*10%+1300*15%=370元。

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

【程序】

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

Ent 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

点击查看答案

第5题

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

点击查看答案

第6题

●试题八阅读以下说明及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

点击查看答案

第7题

阅读以下应用说明及Visual Basic程序代码，将应填入（n)处的字句写在对应栏内。【说明】已知窗体上有

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

Print

End Sub

点击查看答案

第8题

阅读以下应用说明及Visual Basic程序代码，将应填入（n)处的字句写在对应栏内。【应用说明5.1】本应

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

【应用说明5.1】

本应用程序的窗体中有一个下拉式列表框(名称为Combo1)和两个文本框(名称分别为 Txt1和Txt2)。运行时，用户从Combo1的列表中进行选择，程序就会将选中条目的内容以及编号(从0开始)分别在文本框Txt1和Txt2中显示出来。

【程序代码5.1】

Private Sub Combo1_Click()

Txt1.Text = Combo1. (1)

Txt2.Text = Combo1. (2)

End Sub

(注：可供(2)处选择的选项：List, Index, Listlndex, ListCount, Number)

【应用说明5.2】

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

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

开发该应用的部分程序代码如下：

【程序代码5.2】

Private Sub CmbOp_Click()

Dim Dataln As Double,DataOut as Double

Dataln=(3)

Select Case (4)

Case "取整数部分"

DataOut =Int(Dataln)

Case "求平方根"

If Dataln＜0 Then

MagBox "负数不能开平方!"

Else

DataOut = Sqr(Dataln)

End If

Case "取绝对值"

DataOut = Abs(Dataln)

(5)

TxtOut. Text = str $ (DataOut)

End Sub

点击查看答案

第9题

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

}

点击查看答案

第10题

试题六（共 15 分）阅读以下应用说明以及 Visual Basic 程序代码，将应填入（n）处的字句写在答题

试题六（共 15 分）

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

[应用说明]

某电视台拟开发应用程序来显示戏曲大赛中1～4号四位选手决赛的现场投票情况。该程序从现场观众中（不超过 2000 人）每 0.5 秒收集一次对这四位选手的支持票数，并在屏幕上动态显示这四位选手的票柱（以高度反映票数）与累计得票数，如图 6-1 所示。投票过程限时 30 秒，每名观众最多为 1 名选手投票。投票结束后系统通过比较各位选手的累计得票数，显示决赛结果： “*号胜出” （如有单个冠军）或“继续进行 PK”（如有多人获得相同的最高票数）。

试题六（共 15 分）阅读以下应用说明以及 Visual Basic 程序代码，将应填入（n）

该程序中设置公共变量 T 动态记录投票时间。四个形状 ShpM（1 to 4）动态增长的

底线固定。

[Visual Basic 程序代码]

Dim T As Integer '声明全局变量

Private Sub Form_Load()

For i = 1 To 4

ShpM(i).Top = 2000 : ShpM(i).Height = 0 ' 初始票柱高度为0

TxtM(i).Text = 0

Next i

Tim1.Enabled = False : Tim1.Interval = 500 : T = 0

End Sub

Private Sub CmdStart_Click()

Tim1.Enabled = True '开始投票

CmdStart.Enabled = False

End Sub

Private Sub Tim1_Timer()

Dim n(1 To 4) As Integer ' n(1 to 4)为每次收集的票数

Dim i As Integer, j As Integer

Dim G As Integer ' G 用于计算最高票数

Dim ng As Integer ' ng 用于计算冠军个数

For i = 1 To 4

n(i) = … ' 收集 i 号选手的票数，此处省略

TxtM(i).Text = TxtM(i).Text + n(i) ' 累计票（VB 能进行自动转换）

ShpM(i).Top = ShpM(i).Top - n(i)

ShpM(i).Height = ShpM(i).Height + （1） ' 算出票柱高度

Next i

T = T + 1 ' 计时

If T = 60 Then ' 投票时间到

（2） ' 停止数据收集处理

ng = 1

G = TxtM(1).Text

For i = 2 To 4

If G ＜ TxtM(i).Text Then

G = TxtM(i).Text

ng = （3）

j = i

Else

If G = TxtM(i).Text Then ng = （4） ' 计算冠军个数

End If

Next i

If ng = 1 Then

txtResult.Text = （5） ' 单个冠军结果

Else

txtResult.Text = "继续进行PK"

End If

End Sub

点击查看答案

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

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