统计数字子串之和。用VB编写程序，在文本框Text1中输入任意字符串s，统计s中数字字符串的数值和（如输入字符串“ab123dr34fg9de”，则输出166，

题干

统计数字子串之和。用VB编写程序，在文本框Text1中输入任意字符串s，统计s中数字字符串的数值和（如输入字符串“ab123dr34fg9de”，则输出 166，即 123+34+9＝166），并在Label3输出结果。程序设计界面如下：

Private Sub Command1_Click()
Dim s As String, ch As String
Dim ch2 As String, sum As Double
Dim n As Integer, i As Integer
s = Text1.Text
①________
i =" 1:" sum = 0
Do While i <= n
ch =" Mid(s," i, 1)
If ch >= "0" And ch <= "9" Then
②________
ch2 =" Mid(s," j, 1)
Do While ch2 >= "0" And ch2 <= "9"
j =" j" + 1
ch2 =" Mid(s," j, 1)
Loop
sum =" sum" + ③________
i = j
End If
i =" i" + 1
Loop
Label3.Caption = Str(sum)
End Sub

上一题下一题 0.99难度填空题更新时间:2019-02-28 06:14:21

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

同类题2

某学校开设多样化选修课程，学生可以根据个人兴趣和特长选择选修课。假设每门选修课的选课人数不超过40，学生选课的相关信息存放在数据库文件“student.accdb”的data表中，选课查询程序运行时界面如图所示。
程序功能：在文本框Text1中输入课程号，单击“查询”按钮Command1,在列表框List1中显示选修本课程的名学生信息。如果没有找到，在列表框中显示“该课程当前无人报名”。按此要求将程序补充完整。

Private Sub command1_click()
Dim xh(1 to 40),xm(1 to 40) As String '学号和姓名的数组
Dim i,num as integer
Dim conn As New ADODB.Connection, rs As New ADODB.Recordset
Dim strSQL As String
conn.ConnectionString = "Provider="Microsoft.ACE.OLEDB.12.0;Data" Source=" + App.Path + "\student.accdb" '打开到数据库的链接
conn.Open
strSQL ="select xh,xm from data where '课程=&(Text1.Text) & '" '设置查询的SQL语句
Set rs.ActiveConnection = conn '设置rs的ActiveConnection属性，指定与其关联的数据库链接
rs.Open strSQL '打开记录集，将从表student中读取的结果集保存到记录集rs中
List1.Clear
num=0
Do while not rs.EOF
①
xh(num)=rs.Fields("xh")
xm(num)=rs.Fields("xm")
rs.MoveNext
loop
rs.Close
conn.close
set rs=nothing
set conn=nothing
For i="1" to num
②
Next i
if num="0" then list1.additem("该课程当前无人报名")
End Sub
（1）程序中①划线处应填入___________________。
（2）程序中②划线处应填入___________________。

题干

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

同类题1

同类题2

同类题3

同类题4

同类题5