- 二一组卷

题型：综合题题类：常考题难易度：普通

浙江省高中信息技术——VB基础知识

小李编写了一个“查找小写字母并逆序输出”的程序，实现如下功能：在文本框Text1中输入由字母、数字等组成的字符串，单击“查找”命令按钮 Command1后，查找出所有小写字母并在文本框Text2中逆序输出。程序运行界面如图所示。请回答下列问题：

（1）、要使程序运行时，命令按钮 Command1上显示“查找输出”，可在 Form_Load( )事件过程中添加语句（单选，填字母：A .Command1 = “查找输出”/B .Command1.Text= “查找输出”/C .Command1 Caption= “查找输出”）

（2）、实现上述功能的VB程序如下，请在划线处填入合适的代码。

Private Sub Command1_Click( )

Dim s As String, t As String

Dim i As Integer, ch As String

S = Text1.Text

For i = To Len(s)

Ch= ①

If ch > = “a” And ch < = “z” Then

t= ②

End If

Next i

Text2. Text = t

End Sub

① ②

（3）、如果将加框处的代码t改为Str(t)，则运行程序时将（选填：出错/不出错）。

举一反三

将数学表达式 $\text{[math]}$ 写成Visual Basic表达式，正确的是（）

【加试题】有如下程序段：

Label1.Caption=" "

For i=0 To 5

For j=1 To a(i)

Label1．Caption=Label1．Caption+Str(i)

Next j

Next i

数组元素a(0)到a（5）的值依次为“0，1，2，0，2，0”。执行该程序段，标签Label1中显示的内容为（）

某校举办竞赛，共有15个试题，每做对一题得8分，做错一题倒扣4分，没有未做的题目，小明共得了8分，则他做对了几题。用VB程序来解决这个问题，单击按钮Command1，在文本框Text1中输出答对的题数，在文本框Text2中输出做错的题数，程序代码如下：

Private Sub Command1_Click()

i＝1

____①____

Do While____②____

____③____

j＝j－1 ′④

Loop

Text1.Text＝Str(i)

Text2.Text＝Str(j)

End Sub

有如下VB程序段：

s=Text 1.Text：n=0：f=False

For i=1 To Len(s)

ch=Mid(s，i，1)

If ch>="0" And ch<="9" Then

If Not f Then

f=True：n=n+1

End If

Else

f=False

End If

Next i

运行该程序段后，在文本框Text 1中输入“13+(123-23) *2”则变量n的值为（）

密码强度检测。编写python程序，实现如下功能：输入要检测的密码，输出密码强度结果。密码字符分为数字字符、字母和其他符号三类。密码强度的检测方法为：若密码位数少于8位，则不进行强度检测，给出提示“密码位数不能少于8位，请重新输入！”。若密码位数在8位及以上，则进行强度检测：若密码字符属于同一类字符，则密码强度为“弱”；若密码字符属于不同的二类字符，则密码强度为“中等”；若密码字符属于不同的三类字符，

则密码强度为“强”。

编写“找数”程序，查找能被10整除，且包含3的三位数整数，输出符合条件的三位数及个数，运行结果如图所示。实现上述功能的程序如下，请在程序画线处填入合适的代码。

count = 0

for i in range(100,991,10) :

a=i//100

b= ①

if a==3 or b==3 :

②

print(i)

print("符合条件的数共有：",count,"个")

程序中划线①处应填入的代码为{#blank#}1{#/blank#}

程序中划线②处应填入的代码为{#blank#}2{#/blank#}

相关试卷

公司介绍

服务介绍

帮助中心