中国大学MOOC: 如下程序的功能是删除文本框Text1中的数字字符。请在_________处填入适当的内容,完善程序。Private Sub Command1_Click() Dim i%, s$, c$ s = "" For i = 1 To Len(Text1.Text) c = Mid(Text1.Text, i, 1) If _________ Then s = s + c End If Next Text1.Text = sEnd Sub
举一反三
- 中国大学MOOC: 若有如下程序,在文本框中输入“VisualBasic”,程序运行后Label1显示的是__________。 Dim s$,ch$,k%s=For k=1 TO Len(Text1.Text) ch = Mid(Text1.Text,k,1) s = ch+sNext kLabel1.Caption = s
- .有程序代码如下:Text1.Text='Text1.text'则Text1、Text、'Text1.text'分别代表______。
- 下列能弹出“标题1”的jQuery代码是()。标题1 A: alert(S(" #top’).text () B: alert(s(' . top'). text ()) C: alert(S("[name=' headerl’]”). text () D: alert(S(' [name=header1]’).text ();
- 中国大学MOOC: 下面的代码:var i=1,text=;do { text += i; i++; }while (i <5);运行后text的值为:( )
- 中国大学MOOC: 以下代码片段执行后,text的值为:( )var i=1, text=;do { text += i; i++; }while (i < 5);