在VB中常用的字符串截取函数有:
| 函数名 | 功能 | 示例 | 结果 |
| Mid(s, m, n) | 从字符串s的第m位开始,截取长度为n的字符 | Mid(“ABCDEFG”,5,2) | “EF” |
| Left(s, n) | 截取字符串s左边n个字符 | Left(“ABCDEFG”,3) | “ABC” |
| Right(s, n) | 截取字符串s右边n个字符 | Right(“ABCDEFG”,2) | “FG” |
假如某人身份证号码S=“370102199602190000”,如果需要根据此人身份证号码求出该人的“出生年月日”。下列表达式不能实现的是( )。
![]()
第12题图
则随机产生一个大写英文字母的VB表达式是( )
①for循环变量 in 列表后面必须加冒号
②For循环所包含的语句是不以缩进为标志的
③列表的几种表达方式有直接罗列,先定义后使用和使用range( )函数
④For循环所包含的语句是以缩进为标志的
① 文件名为“djyssw.htm”
② 文件名为“冬季养生食物.htm”
③ 可使用“记事本”软件编辑
④ 可使用“ACDSee”软件浏览
⑤ 该网页的URL为“D:\Web\djyssw.htm”
⑥ 该网页文件是用HTML语言描述的。
其中正确的有( )
|
2021年贵阳“数博会”信息采集表 |
||
|
信息的类型 |
采集的设备 |
保存的文件 |
|
文本 |
平板电脑 |
数博会介绍.doc、 |
|
图 |
手机 |
|
|
声音 |
录音笔 |
|
|
视频 |
数码摄像机 |
|
第一步: 87+78=165
第二步: 165+561=726
第三步: 726+627=1353
第四步: 1353+3531=4884
即十进制数87最少经过4步可得到回文数。
给定一个n(2≤n≤10)进制数m,已知m的位数≤20,求最少经过几步可得到回文数,若步数≤30,则在标签Label2,上输出步数,否则输出“不可能得到回文数!”。程序运行界面如下图所示。

Dim a(1 To 20) As Integer
Dim b(1 To 20) As Integer
Private Sub Command1_Click()
Dim n As Integer, m As Integer, step As Integer, x As Integer
n = Val(Text1.Text): m = Val (Text2.Text)
i=1:step=0
Do While m<>0
a(i) =m Mod 10: m=m\10:i=i+1
Loop
x=
If Ishw(x) Then Label2.Caption = "step=" + Str(step)
Do While step <= 30
p=0
For i=1 To x
b(i) = (a(i) +a(x-i+1)+p) Mod n
p= (a(i)+a(x-i+1)+p)\n
Next i
step=step+1
If p< 0 Then x=x+ 1:
For i=1 To x
Next i
If Ishw(x) Then Label2. Caption = "step=" + Str(step): Exit Do
Loop
End Sub
Function Ishw(y As Integer) As Boolean
Dim j As Integer
Ishw = True
For j=1 To y\2
If a(j) <> a(y- j + 1) Then Ishw = False: Exit For
Next j
End Function