长度小于等于 100),在列表框 List1 里输出所有配对括号在表达式中的位置。例如在文本框 Text1 里入:“12*(3-(1+2))*3”,程序运行效果如图所示。
实现上述功能的 VB 代码如下,在划线的地方填入合适代码,完善程序。Private Sub Command1_Click()
Dim s As String
Dim a(1 To 100) As Integer
|
i = 1 top = 0
Do While i <= Len(s)
If Mid(s, i, 1) = "(" Then
top = top + 1
End If
If Mid(s, i, 1) = ")" Then
List1.AddItem Str(a(top)) + " " + Str(i)
End If
i=i+1 Loop
End Sub
Private Sub Command1_Click()
Dim a As Integer, b As Integer
Dim c As Integer '①
a= Val(Text1. Text) '②
b = Val(Text2. Text)
c=a + b '③
Label1. Caption ="a + b="+c '④
End Sub
下列说法正确的是( )
1)将备注型字段修改为文本型时,可能会丢失数据。
2)将文本型字段修改为备注型,无任何问题。
3)将文本型修改为数字型或货币型时,必须保证该字段中的数据全部都是数字,而不能包含其他字符,否则会造成数据的丢失。
学号 | 姓名 | 性别 | 出生日期 | 是否住校 |
20190201 | 张硕 | 男 | 2004-08-17 | 住校 |
20190202 | 吴思思 | 女 | 2004-05-23 | 通校 |
20190203 | 郑雨辰 | 男 | 2003-11-25 | 通校 |
…… | …… | …… | …… | …… |
下列关于该系统的描述中,正确的是( )