下面程序功能是随机产生的8个大写字母，在文本框显示结果。在空白处填入合适的表达式，使程序完整。 Private Sub Button1_Click（......) Handles Button1.Click Dim c As Char Dim i As Integer Randomize（) For i = 0 To 7 c = Chr（Int（________ )) TextBox1.Text &= c Next End Sub

A.Rnd()*26+65

B.Rnd()*65

C.Rnd()*65+26

D.Rnd()*26+48

E.Rnd()*26+A

答案

n或CInt(Text1.Text或CInt(Text1)或Text1.Text或Val(Text1.Text)或 Val(Textl)或Text1 n或CInt(Text1.Text或CInt(Text1)或Text1.Text或Val(Text1.Text)或 Val(Textl)或Text1

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装赏学吧APP，拍照搜题省时又省心！

更多“下面程序功能是随机产生的8个大写字母，在文本框显示结果。在…”相关的问题

第1题

下面程序功能是在文本框输入一个正整数，转换为7进制后在标签显示结果。在空白处填入合适的表达式，使程序完整。 Dim n As Integer Dim s As String n = Val（TextBox1.Text) Do While ________ s = n Mod 7 & s n = n 7 Loop Label1.Text = s

A.n > 0

B.n > 7

C.s > 0

D.TextBox1.Text > 0

E.n < 0

点击查看答案

第2题

下面程序功能是在文本框输入任意字符串，将字符串倒置后在标签显示结果。例如，输入“ABCDEFG”变换成“GFEDCBA”。在空白处填入合适的表达式，使程序完整。 Dim i As Integer Label1.Text = "" For i = 1 To Len（TextBox1.Text) Label1.Text = ________ Next

A.Mid(TextBox1.Text, i, 1) & Label1.Text

B.Mid(TextBox1.Text, i, 1)

C.Label1.Text & Mid(TextBox1.Text, i, 1)

D.Label1.Text & TextBox1.Text

E.TextBox1.Text & Label1.Text

点击查看答案

第3题

下面程序功能是求1～50中奇数的和，在标签显示结果。在空白处填入合适的表达式，使程序完整。 Dim i，sum As Integer For i = 1 To 50 if ________ then sum += i end if Next Label1.Text = sum

A.i mod 2 = 1

B.i / 2 = 1

C.i 2 = 1

D.i - 2 = 1

E.i <> 2

点击查看答案

第4题

如下程序的功能是随机产生10个大写字母保存到数组。请在_________处填入适当的内容（数值)，完善程序。 Private Sub Command1_Click（) Dim a（9) As String, i% For i = 0 To 9 a（i) = Chr（Rnd * 26 + _________) Next End Sub

点击查看答案

第5题

如下程序的功能是随机产生10个大写字母保存到数组。请在_________处填入适当的内容（不要空格)，完善程序。 Private Sub Command1_Click（) Dim a（9) As String, i% For i = 0 To 9 a（i) = Chr（Rnd * 26 + _________) Next End Sub

点击查看答案