下列程序的功能是：当用户点击窗体下方的“石头”（command1）、“剪子”（command2）、“布”（command3）任意一个按钮的时候，电脑也会在Lab_刷题宝

题干

下列程序的功能是：当用户点击窗体下方的“石头”（command1）、“剪子”（command2）、“布”（command3）任意一个按钮的时候，电脑也会在Label1上随机显示出一个石头、剪刀、布（显示在label1上），程序判断出胜负（平局算负）将结果显示到label3上。

Private Sub Command1_Click()
Label1.Caption = sj ‘计算机随机产生一个值
Label2.Caption = Command1.Caption
If cp(Label1.Caption, Label2.Caption) Then ‘判断胜负
① = "乙方负"
Else
Label3.Caption = "乙方胜"
End If
End Sub
Function sj() As String '随机生成石头、剪刀、布
i = ② ‘随机生成1~3任一整数
If i = 1 Then sj = "石头"
If i = 2 Then sj = "剪刀"
If i = 3 Then sj = "布"
End Function
①____________②_________________

上一题下一题 0.99难度填空题更新时间:2019-05-29 05:27:26

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

同类题1

有如下Visual Basic程序段：
a="2"
b=5
c=4
If a>b or c<b Then m="a-b" Else m=b-c
该程序段运行后,变量m的值为_______。

同类题2

对称字符串的特征是从左到右读和从右往左读是完全一样的。如“abba”是对称的，”abcba”也是对称的。判断字符串是否对称的VB程序段如下：
n = Len(s) 's是判断的字符串

k = 0: j = n

For i = 1 To n \ 2

Next i

If k = 0 Then Label1.Caption = "对称" Else Label1.Caption = "不对称"

方框中的代码由以下三部分组成：
①j = j - 1
②If c1< >c2 Then k = k + 1
③c1 = Mid(s,i,1) : c2 = Mid(s,j,1)
代码顺序正确的是（）

A．①③②	B．②③①
C．②①③	D．③②①

同类题3

为求s=2+4+8+16+32的和，流程图不能实现，需作一处适当更改。请选出你认为错误的标号并做更改。标号处更改为。

同类题4

有如下 VB 程序段：
Function fact(n As Integer) As String If n = 1 Then
fact = fact & 1
Else
fact = fact(n \ 2) & n Mod 2
End If
End Function
Private Sub Command1_Click()
Dim x As String, i As Integer, r As Integer x = Text1.Text
For i = 1 To Len(Text1.Text)

If Mid(x, i, 1) = "." Then Exit For Next i

r = Val(Mid(x, i + 1, Len(Text1.Text) - i)) Text2.Text = fact(r)
End Sub
在文本框Text1 中输入 2019.70,则执行程序段，在文本框 Text2 中显示的内容是（）

同类题5

有7个人坐在一起，问第七个人多少岁？他说是第6个人年龄2倍小4岁。问第6个人岁数，他说是第5个人年龄也是2倍小4岁。问第5个人，还说是第4个人年龄2倍小4岁。问第4个人，又说是第3个人年龄2倍小4岁，以此类推。最后问第一个人，他说是5岁。请问第7个人多大？以下是小王同学编写的解决该问题的VB，请把程序补充完整。

Private Sub Command1_Click()
Dim i, year As Integer
Dim a(1 To 8) As Integer
a(1) = 5
For i = To 7

List1.AddItem"第"+ Str(i)+"个人的年龄为"+Str(a(i))
Next i
End Sub

相关知识点