下面的程序的作用是利用随机函数产生10个100~300(不包含300) 之间的随机整数,打印其中7的倍数的数,并求它们的总和,请填空。
Sub TOF()
Randomize
Dim s As Double
Dim a(10) As Integer
For i=0 To 9
【10】
Next
For i=0 To 9
If 【11】 Then
Print a(i)
s=s + a(i)
【12】
Next i
Print "S="; s
End Sub
已知列表lst_suit=["黑桃","红桃","梅花","方块"],存放了扑克牌的所有花色,列表lst_face=["3","4","5","6","7","8","9","10","J","Q","K","A","2"],存放了扑克牌的所有牌面大小(按照牌面大小排列)。试编写程序,完成以下功能: (1) 利用列表生成式,将以上两个列表进行元素搭配,生成一个新的列表lst,存放所有牌面(不考虑大小王)。新列表lst的内容为['3黑桃', '3红桃', '3梅花', '3方块', '4黑桃', '4红桃', '4梅花', '4方块',……, 'A黑桃', 'A红桃', 'A梅花', 'A方块', '2黑桃', '2红桃', '2梅花', '2方块']。 (2) 使用random库的shuffle函数将列表lst中的元素次序打乱。 (3) 用户与电脑进行"抽牌比大小"游戏。游戏规则如下: l 用户输入序号(范围在0~51之间),程序根据序号在列表lst中读取牌面。 l 电脑抽牌由程序自动完成(通过random库的randint函数随机生成序号)。 l 将用户抽取的牌面与电脑抽取的牌面进行比较(不考虑花色),并将结果输出。输出内容对照如下: "恭喜,您赢了!" "很遗憾,您输了!" "咱们平手了!"
注意:不得修改原有程序的控件的属性。在结束程序运行之前,必须至少正确运行一次程序,将统计的结果显示在标签中,否则无成绩。最后把修改后的文件按原文件名存盘。
Private Sub Command1 _Click()
For i = 1 To 20
x=Int(【 】*200+ 100)
If【 】 = 0 Then
Print x
S = S +【 】
End If
Next I
Print "Sum = "; S
End Sub
andomize语句的功能是()。
A.产生个(0,1)之间的随机小数
B.产生一个[1,10]之间的随机整数
C.产生一个(-1,1)之间的随机小数
D.产生新的随机整数
注意:保存时必须存放在考生文件夹下,窗体文件名为sjt3.frm,工程文件名为sit3.vbp。
2.在考生文件夹中有工程文件sit4.vbp,它包含一个窗体文件form1。在窗体上有一个列表框,名称为List1,一个文本框,名称为Text1,和一个命令按钮,名称为Command1,标题为“复制”。要求程序运行后,在列表框中自动建立四个列表项,分别为“项目1”、“项目2”、“项目3”、“项目4”。如果选择列表框中的一项,则单击“复制”按钮时,可以把该项复制到文本框中(程序运行结果如图2—2)。
要求:编写程序,以实现试题要求的功能。
注意:存盘时必须放在考生文件夹下,工程文件名为sjt4.vbp,窗体文件名为sjt4.frm。
注意:请勿修改main()主方法和其他已有语句内容,仅在横线处填入适当语句。
import javax.swing.*;
public class basic
{
public static void main(String[] args)
{
String sDimU=JOptionPane.showInputDialog("请输入数组的行数");
int iDimU=______(sDimU);
int [].[] numbers=new int[iDimU] [];
for(int i=0; i<iDimU; i++)
{
int k=(int) (Math.random()*5+1);
numbers[i]=______;
}
for(int i=0; i<iDimU; i++)
{
for(int j=0;______; j++)
{
numbers[i] [j]=(int) (Math.random()*l00);
System.out.print(numbers[i] [j]+" ");
}
System.out.println ();
}
System.exit(O)
}
}
程序A:
for(i=0; i<=49;i++)
for(j=0; j<=49;j++)
A[i][j]=0;
程序B:
for(i=0; i<=49; i++)
for(j=0; j<=49; j++)
A[i][j]=0;
若每页可存放50个整数,执行程序A会发生(52)次缺页,执行程序B会发生(53)次缺页。
A.50
B.100
C.1000
D.2500