编写一个具有下列功能的VB程序：在文本框Text1中输入18位身份证号，单击“提取”按钮Command1，并在文本框Text2中显示出生日期。编辑界面如1图所示_刷题宝

题干

编写一个具有下列功能的VB程序：在文本框Text1中输入18位身份证号，单击“提取”按钮Command1，并在文本框Text2中显示出生日期。编辑界面如1图所示，运行界面如2图所示：

(1)按钮显示内容修改为“提取”，是通过修改___________属性完成的。
(2)请根据题意将下列程序补充完整。
Private Sub Command1_Click()
Dim s As String ,x As Integer
S=Text1.Text
x ＝ Len(Text1.Text)
If①________Then
Text2.Text ＝②___________
Else
Label2.Caption ＝ ”输入的身份证号位数有误，请重新输入”
End If
End Sub

上一题下一题 0.99难度填空题更新时间:2017-02-24 08:51:51

答案(点此获取答案解析）

同类题1

变量a 中存储了一个字符,能够正确判断该字符为数字字符“0”~ “9”的VB 表达式是( )

A．Asc(a)>=0 Or Asc(a)<=9	B．“0”<=a<=“9”
C．a<=“0”Or a>=“9”	D．a>=“0”and a<=“9”

同类题2

小明编写一个模拟qq登录的VB程序。当输入用户名、密码和验证码，点击登录按钮后，会跳出信息框提示是否验证成功。部分程序与流程图如下所示：

uname = Text1.Text '输入用户名
psd = Text2.Text '输入密码
vcode = Val(Text3.Text) '输入验证码
If vcode <> Val(Label3.Caption) Then
MsgBox “”

' Label3显示的是随机验证码
ElseIf uname <> "admin" Or psd <> "123456" Then
MsgBox “

”
Else
MsgBox “

”
方框中正确的语句是（）。

A．①中“验证成功”	B．②中“输出用户名或密码有误”
C．②中“验证成功	D．③中“输出验证码错误”

同类题3

对以下程序段的说法正确的是（）
s=0
i=0
Do While s<10
i=i+1
s=s+i*i
Loop

A．该程序的循环体执行了3次

B．该程序段结束后i的值为3

C．该程序段结束后i的值为4

D．该程序段结束后s的值为13

同类题4

在VB编程中，我们使用函数与过程是为了( )

A．使程序模块化	B．使程序易于阅读
C．提高程序运行速度	D．便于系统的编译

同类题5

回文字符串是一个对称的字符串，它从左到右读和从右到左读是完全一样的。如“abcba”和“abccba”都是回文字符串，“abc”不是回文字符串。小王编写了一个验证回文字符串的VB程序，功能如下：在文本框Text1里输入一个字符串，单击命令按钮Command1，在文本框Text2中显示验证结果：是回文字符串显示“yes”，否则显示“no”。程序运行界面如图所示。

（1）在设计程序界面时，要窗体Form1的标题栏上显示“判断回文字符串”，应修改Form1的_________属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim st As String
Dim i As Integer, j As Integer
Dim flag As Boolean
①________
j = Len(st)
i = 1
flag = True
Do While flag And i <= j
If Mid(st, i, 1) = Mid(st, j, 1) Then
i = i + 1
②________
Else
flag = False
End If
Loop
If ③______ Then
Text2.Text = "yes"
Else
Text2.Text = "no"
End If
End Sub

相关知识点