刷题首页
题库
高中信息
题干
对用户输入的字符串进行解密的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
下列VB表达式的值等于18的是( )
A.int(17.9)
B.Len("17") + 1
C.Sqr(17)
D.Abs(-17) + 1
同类题2
为了求数列1
2
+3
2
+5
2
+7
2
+……+99
2
的和,以下说法错误的是( )。
A.求和通常采用累加器逐个累加,这题要重复累加50次。
B.这个问题通过循环结构解决。
C.在Visual Basic中只能用do语句编程解决这个问题。
D.解决这个问题的算法不需要输入。
同类题3
产生(-6,6)随机整数
同类题4
在Visual Basic中,表达式1234 Mod 10的值是( )
A.1
B.2
C.3
D.4
同类题5
(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
相关知识点
算法理论
面向对象程序设计 VB开发工具
常用的标准函数
循环语句