注册

题型：填空题题类：模拟题难易度：困难

浙江省杭州市2015年高考模拟命题比赛信息技术 (2)

设计VB程序，该程序将输入的字符串中小写字母转换成大写字母后输出。在文本框Text1中输入一串字符（数字、字母均可），单击“转换”按钮Command1，在标签Label2中输出结果。（提示：Asc（x）：将字符x转换为ASCII码值；Chr（x）：将ASCII代码x转换为所对应的字符）该程序的设计界面如图所示,请根据算法将下列程序补充完整。

Private Sub Command1_Click()

Dim ch As String, s As String

Dim i As Integer, j As Integer

ch = Text1.Text

For i = 1 To

j = Asc(Mid(ch, i, 1))

If j > 96 And j < 123 Then

s = s + Chr(j - 32)

Else

s = s + Chr(j)

End If

Next

End Sub

举一反三

【加试题】小李编写一个统计学生选考科目的VB程序，算法的基本思想是：检查每位学生选课组合的编码是否有效，对有效选择结果进行科目统计，根据各科次占有效人数的百分率求出各科排名。程序运行时，单击“显示”按钮Commmad1，学生选课数据显示在列表框list1中，各科编号及对应科目名称显示列表框list2中，单击“统计”按钮Commmad2，选课结果按各科百分率由高到低显示在列表框list3中，程序运行结果如图所示。

实现上述功能的VB程序如下,请回答下列问题:

某地区公共自行车收费信息如下：“60分钟内免费；60分钟以上至120分钟（含），收费1元；120分钟以上至180分钟（含），收费2元；租用超过180分钟（含）以上的时间，按每小时3元计费（不足一小时的按一小时计）”。现按要求编写VB程序，界面如图1所示，程序功能如下：在文本框Text1中输入租车时间，单击“计费”按钮Command1，在标签Label5中输出对应的租车费用。

图1

图2

图3

在题中，要把命令按扭的标题修改为“计算”，应修改的属性是（）

有VB编写的程序如下：

Dim a(0 To 9) As Integer, t as Long

t=Val(Text1.Text)

Do While t<>0

a(t Mod 10) = 1

t = t \ 10

Loop

For i = 0 To 9

x = x + a(i)

Next i

Text1中输入10242048，则程序执行后x的值为（）

有如下VB程序段：

s = "Hello, Taizhou!"

n= Len(s): ans =""

For i=1 To n

c=Mid(s, i, 1))

If Abs(i-n)<n\2 Then

If c>="a" And c<="z" Then c=Char(Asc(c)-Asc("a")+Asc("A"))

End If

ans=ans+c

Next i

Labell.Caption=ans

执行上述程序段后，标签Labell中输出的内容为（）

如果a，b，c均为整型变量，其中a=3，b=4，执行以下语句，变量a，b的结果与其他几项不同的是（）

返回首页

相关试卷

试题篮

公司介绍

Company Introduction

服务介绍

Service Introduction

帮助中心

Help center

二一教育APP

二一教育APP

400-637-9991

周一至周五 8:30-17:30

在线咨询客服