刷题首页
题库
高中信息
题干
对用户输入的字符串进行解密的VB程序段如下:
s = Text1.Text
For i = 1 To Len(s)
ch = Mid(s, i, 1)
nk = Asc(ch) - i
If nk < 0 Then nk = nk + 127
Text2.Text = Text2.Text + Chr(nk)
已知大写字母A的ASCII码值为65,小写字母a的ASCII码值为97,在文本框Text1中输入内容“yhT5”,执行程序段后,文本框Text2显示的内容为( )
A.YHt5
B.xgS4
C.zjW9
D.xfQ1
上一题
下一题
0.99难度 选择题 更新时间:2020-03-30 10:42:52
答案(点此获取答案解析)
同类题1
对输入的两个整数a和b,找出其中的较大者赋给c并输出。解决该问题的算法流程图如右图所示,流程图中虚线框部分的内容可为
A.
B.
C.
D.
同类题2
(1)有如下程度段:
X=5
Y=-20
If Not x>0 Then x=y-3 Else y=x+3
该程序段运行后,y的值为:___ 。
(2)有如下VB程序段:
a = 3: b = 4: c = 5
If a >= b And a >= c Then
y = a
ElseIf b >= c Then
y = b
Else
y = c
End If
该程序段运行之后,整数型变量y的值:_____。
(3)火车托运行李,根据行李的重量按下列标准收费:若不超过50千克,按每千克0.35元收费;若超过50千克,超过部分则按每千克0.5元收费。输入托运行李的重量,计算并输出托运行李的费用。下面程序若用于实现上述目标,则划线处的语句应更改为_________________________。
Sub command1_click( )
Dim x as double
X=val(text1.text)
If x<=50 then
Text2.text=
str(0.35*x)
Else
Text2.text= str(0.5*x)
Endif
End sub
(4)求n阶乘(n!=1*2*3*4*n),划线处的语句应为.
Private Sub Command1_Click()
Dim i As Integer, n As Integer
Dim f As Long
n = Val(Text1.Text)
f = 1
i = 1
Do While i <= n
__________________________
i = i + 1
Loop
Text2.Text = Str(f)
End Sub
同类题3
执行以下流程图,当输入n的值为2,m的值为3时,则变量p的值为_______。
同类题4
下列流程图的功能是______。
A.求y的绝对值
B.求y的算术平方根
C.求x的绝对值
D.求x的算术平方根
同类题5
以下运算符中运算优先级最高的是( )
A.+
B.&
C.>=
D.AND
相关知识点
算法理论
面向对象程序设计 VB开发工具
常用的标准函数
循环语句