重要提示: 请勿将账号共享给其他人使用,违者账号将被封禁!
查看《购买须知》>>>
当前位置: 首页 > 大学网课 > 大学网课
网友您好, 请在下方输入框内输入要搜索的题目:
搜题

题目

[单选题]

下面程序功能是随机产生的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
更多“下面程序功能是随机产生的8个大写字母,在文本框显示结果。 在空白处填入合适的表达式,使程序完整。 Private Sub Button1_Click(......) Handles Button1.C…”相关的问题

第1题

下面程序功能是随机产生的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

点击查看答案

第2题

10、下面程序功能是随机产生的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

点击查看答案

第3题

下面程序功能是在文本框输入一个正整数,转换为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

点击查看答案

第4题

下面程序功能是在文本框输入一个正整数,转换为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

点击查看答案

第5题

下面程序功能是在文本框输入任意字符串,将字符串倒置后在标签显示结果。 例如,输入“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

点击查看答案

第6题

下面程序功能是在文本框输入任意字符串,将字符串倒置后在标签显示结果。 例如,输入“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

点击查看答案

第7题

下面程序功能是求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

点击查看答案
赏学吧APP
TOP
重置密码
账号:
旧密码:
新密码:
确认密码:
确认修改
购买搜题卡查看答案
购买前请仔细阅读《购买须知》
请选择支付方式
微信支付
支付宝支付
点击支付即表示你同意并接受《服务协议》《购买须知》
立即支付
搜题卡使用说明

1. 搜题次数扣减规则:

功能 扣减规则
基础费
(查看答案)
加收费
(AI功能)
文字搜题、查看答案 1/每题 0/每次
语音搜题、查看答案 1/每题 2/每次
单题拍照识别、查看答案 1/每题 2/每次
整页拍照识别、查看答案 1/每题 5/每次

备注:网站、APP、小程序均支持文字搜题、查看答案;语音搜题、单题拍照识别、整页拍照识别仅APP、小程序支持。

2. 使用语音搜索、拍照搜索等AI功能需安装APP(或打开微信小程序)。

3. 搜题卡过期将作废,不支持退款,请在有效期内使用完毕。

请使用微信扫码支付(元)
订单号:
遇到问题请联系在线客服
请不要关闭本页面,支付完成后请点击【支付完成】按钮
遇到问题请联系在线客服
恭喜您,购买搜题卡成功 系统为您生成的账号密码如下:
重要提示: 请勿将账号共享给其他人使用,违者账号将被封禁。
发送账号到微信 保存账号查看答案
怕账号密码记不住?建议关注微信公众号绑定微信,开通微信扫码登录功能
警告:系统检测到您的账号存在安全风险

为了保护您的账号安全,请在“赏学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!

- 微信扫码关注赏学吧 -
警告:系统检测到您的账号存在安全风险
抱歉,您的账号因涉嫌违反赏学吧购买须知被冻结。您可在“赏学吧”微信公众号中的“官网服务”-“账号解封申请”申请解封,或联系客服
- 微信扫码关注赏学吧 -
请用微信扫码测试
温馨提示
每个试题只能免费做一次,如需多次做题,请购买搜题卡
立即购买
稍后再说
赏学吧