题目内容
（请给出正确答案）
[主观题]
编写一个程序，获取10个1~20的随机数，要求随机数不能重复。
答案
查看答案
重要提示：请勿将账号共享给其他人使用，违者账号将被封禁！
查看《购买须知》>>>
请输入或粘贴题目内容
搜题
拍照、语音搜题，请扫码下载APP
题目内容
（请给出正确答案）
答案
更多“编写一个程序，获取10个1~20的随机数，要求随机数不能重复。”相关的问题
第1题
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click()
Dim I，Num
Randomize
Do
For I=1 To 1000
Num=Int(Rnd*100)
PrintNum；
SelectCase Num
Case 12
Exit For
Case 58
Exit Do
Case 65，68，92
End
End Select
NextI
Loop
End Sub
上述事件过程执行后，下列描述中正确的是
A．Do循环执行的次数为1000次
B．在For循环中产生的随机数小于或等于100
C．当所产生的随机数为12时结束所有循环
D．当所产生的随机数为65、68或92时窗体关闭、程序结束
第2题
A.产生随机数时不使用Int函数
B.循环2的初值应为i= x
C.数组定义改为Dim a(11)As Integer
D.循环3的循环终值应改为9
第3题
第4题
阅读以下说明和Java代码，将应填入(n)处的字句写在对应栏内。
[说明]
编写一个字符界面的Java Application 程序，接受用户输入的10个整数，并输出这10个整数的最大值和最小值。
[Java 代码]
import java. io.* ;
public class abc
{
public static void main ((1))
{int i, n=10, max=0, min=0, temp=0;
try {
BufferedReader br = new BufferedReader (
new InputStreamReader (System.in ) );
max = min =Integer. parselnt (br. readLine () );
}. (2) (IOExccption e ) {} ;
for (i=2 ; i＜=n ; i++ ) {
try {
BufferedReader br = new (3) (
new InputStreamReader (System. in ) );
temp =(4) (br. readLine ());
if (temp＞max ) max=temp;
if (temp＜min) (5)
} catch (IOException e ) {};
}
System.out.println ("max="+max+"\nmin="+min );
}
}
第5题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For n=1 To 20 If n Mod 3＜＞0 Then m=m+n\3 Next n Print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是______。
A．15
B．18
C．21
D．24
第6题
在窗体中添加一个命令按钮Commandl和一个文本框Text1，编写命令按钮Com-mand1 的 Click事件代码； Private Sub Command1_Click() Dim S As String*20 S=TextText End Sub 该程序的功能是当单击按钮Command1时，把变量S中内容写入一个顺序文件 datl. dar中，正确的程序段是 ()
A．Open "datl. dat", For lnput As#1 Write井1,S
B．Open"datl. dat" For Output As#1 Write#1, S
C．Open"dat", For Binary As #1 Write #1, S Close #1
D．Open datl. dat"For Random As #1 Write #1, S Close #1
第7题
在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For n = 1 To 20 If n Mod 3 ＜＞ 0 Then m = m + n \ 3 Next n print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是
A．15
B．18
C．21
D．24
第8题
A．旅游景点：长城故宫
B．旅游景点：长城颐和园
C．旅游景点：颐和园
D．旅游景点：故宫
第9题
A．10
B．20
C．30
D．40
第10题
试题七（共15分）
阅读以下应用说明以及用Visual Basic 编写的程序代码，将应填入（n） 处的字句写在答题纸的对应栏内。
[应用说明]
某应用程序用于监测某种设备的工作温度（20～200度），其运行窗口中，包括一个温度计（矩形形状shpMeter）以及其中指示当前设备温度的水银柱（矩形形状shpT）,文字标签标记了温度刻度；另有一个图片框picCurve，用于动态描述检测到的温度曲线（用户见到的曲线与水银柱等高变化）；命令按钮“开始测”（cmdStart）用于启动温度检测，命令按钮“暂停检测”（cmdStop）用于暂停检测。矩形形状 shpT(水银柱)属性visible 初始设置为不可见，属性Filltype 设置为solid（实心），FillColor设置为红色；图片框picCurve的属性AutoRedraw设置为True；再创建一个定时器TimT，属性Enabled初始设置为False（不起作用），属性Interval(定时间隔)设置为500 毫秒。为模拟设备温度的检测，程序中利用了（0，1）之间均匀分布的伪随机数获得[20,200]之间的随机温度T。为了便于在图片框picCurve 中绘制曲线，程序中对该图片框立了坐标系统，左上角为原点（0，0），水平向右方向为X 轴，垂直向下方向为Y 轴，右下角坐标为（50，180）。为了便于观察记录的温度值，图片框中从上到下创建了5 条水平线Ls(i),i=0,1,…4，并在程序中按等间隔排列进行位置设置。程序中每隔半秒算出曲线点（x,y），其中x=0,1,2,…，再用直线段连接各相邻曲线点形成温度曲线。
[Visual Basic程序代码]
Dim (1) As Integer '声明全局变量
Private Sub CmdStart_Click()
TimT.Enabled = True
ShpT.Visible = True
End Sub
Private Sub CmdStop_Click()
TimT.Enabled = False
End Sub
Private Sub Form_Load()
Dim i, H As Integer
PicCurve.Scale (0, 0)-(50, 180) '设置图片框坐标系：左上角-右下角
H = 30 'H 等于图片框高度的六分之一
For i = 0 To 4 '设置5条水平线Ls(i)的位置
Ls(i).X1 = 0 'Ls(i)起点横坐标
Ls(i).Y1 = H * (2) 'Ls(i)起点纵坐标
Ls(i).X2 = 50 'Ls(i)终点横坐标
Ls(i).Y2 = Ls(i).Y1 'Ls(i)终点纵坐标
Ls(i).BorderColor = &HC0C0C0 '设置水平线颜色
Next i
x = 0 '设置曲线坐标初值
End Sub
Private Sub timT_Timer()
Dim T, H As Integer 'T为即时温度，H 为图片框中温度点显示高度
T = Int(Rnd * 181) + 20 '模拟随机产生设备温度（20～200 度）
'按当前温度显示水银柱
H = ShpMeter.Height * (3) '算出水银柱的高度
ShpT.Top = (4) - H '设置水银柱顶部位置
ShpT.Height = H '设置水银柱的高度
'绘制温度曲线
y = (5) '算出曲线上当前点的纵坐标
If x = 51 Then '当超出图片框时
PicCurve.Cls '清除图片框内以前画的曲线
x = 0 '设置重画曲线的初值
ElseIf x ＞ 0 Then '除左边点外
PicCurve.Line (x-1,Lasty)-(x,y),vbRed '由前1 点到当前点画红色线段
End If
x = x + 1 '准备下一点坐标
Lasty =y '保存当前坐标供下次使用
End Sub
.jpg)
程序运行后，消息对话框中显示______。
