首页 > 计算机应用技术> VB程序设计

网友您好，请在下方输入框内输入要搜索的题目：

请输入或粘贴题目内容搜题

搜题

拍照、语音搜题，请扫码下载APP

题目内容（请给出正确答案）

[主观题]

将下列的程序补充完整。 import java.applet.Applet； import java.awt.Graphics；

public class Applet2 extends Applet { public void paint(Graphics gap) { in i=678； gap.drawstring(Integer．【】(i)，20，60)； } }

答案

查看答案

发布时间：2022-12-04

更多“将下列的程序补充完整。 import java.applet.Applet； import java.awt.Graphics；”相关的问题

第1题

将下列程序按要求补充完整。 import java.io．*； public class DataType{ public static void m

ain(String args[]){ [【】]//定义常量TIME为int类型，且值为1867 byte b； int i; b=011； i=123； System.out.println("TIME="+TIME)； System.out.println("b="+b)； System.out.println("i="+i)； } }

点击查看答案

第2题

下列程序实现从控制台输入并读取输出字符串。请将程序补充完整。 import java. io.*； publ

icClassCharInput { public static void main(StringArgsl[])throws java.io.IOException { String s： InputStreamReader ir； BufferedReader in； ir=new______(System.in)： in=new______(ir)： while(s=in.______!null) { System.out.println("Read："+s)： } } }

点击查看答案

第3题

计算1*2*3*...*3000，当积大于3000时停止计算。请在______处将程序补充完整。 Private Sub FormClick（)Dim t As Single,j As Integer J=1For j=1 To 3000 ______If t＞3000 Then Exit For Next jPrint j,t End Sub

点击查看答案

第4题

下列是一个类的定义程序段，请补充完整。 public class My Class { int x，y； MyClass（

下列是一个类的定义程序段，请补充完整。 public class My Class { int x，y； MyClass(int i，【】) { x=i；y=j； } }

点击查看答案

第5题

在窗体上画一个命令按钮，然后编写如下事件过程，该过程的功能是用简单选择排序法将10个数排成

升序，请在______处将程序补充完整。

Private Sub Command1 _ Click() Dim a(10)

For i=1 To 10

a(i)=Val(InputBox(″″,″″,0)) Next i

For i=______ For j=______

If ______ Then b=a(i) a(i)=a(j) a(j)=b End If Next j Next i

For k=1 To 10 Print a(k) Next k End Sub

点击查看答案

第6题

下面是一个类的定义，请将程序补充完整。 import java awt．*； import java applet.*：

public class myprogram extends Applet // 定义小程序的主类 { Label p1； TextField in： publicvoidinit() {p1=new Label("请输入一个整数")； _______； in=new TextField(8)； add(in)； } }

点击查看答案

第7题

在窗体中添加一个命令按钮，（其Name属性为Command1)，然后编写代码。程序的功能是产生100个小于1000

在窗体中添加一个命令按钮，(其Name属性为Command1)，然后编写代码。程序的功能是产生100个小于1000(不含1000)的随机正整数，并统计其中5的倍数所占比例。请在【】和【】、【】处填入适当的内容，将程序补充完整。 Private Sub Command1_Click() Dim a(100) For j=1 To 100 a(j)=Int (【】) If a(j)【】5=0 Then【】 Print a(j) Next j Print print k/100 End Sub

点击查看答案

第8题

下面是一个Java Applet程序，请将程序补充完整使它的功能为计算数组各元素的平均值。 import j

ava.applet.Applet; import java.awt.*； public class Exam extends Applet{ public void paint(Graphics g){ int a[]={1,3,5,7,9,10}； int total=0； float ave； for(int i=0；i＜A.length；i++) total+=a[i]； ave=total【】； g.drawstring("ave="+ave,30,60); } }

点击查看答案

第9题

1下面程序段是从对象流中读取对象，请将程序补充完整。 import java.util.*； import java.io.*;

public class UnSerializaDate { Date d=null; UnSerializaDate() { try{ FileInputStream f=new FileInputStream("date.ser"); ObjectInputStream s=new ObjectInputStream(f); 【】 f.close(); } catch(Exception e){ e.printStackTrace(); } } public static void main(String args[]){ UnSerializaDate a=new UnSerializaDate(); System.out.println("The date read is:" +a.d.toString()); } }

点击查看答案

第10题

窗体上有4个文本框控件数组text1（)和一个命令按钮，程序运行前如左图所示，程序运行后如右图所示。

窗体上有4个文本框控件数组text1()和一个命令按钮，程序运行前如左图所示，程序运行后如右图所示。给定的程序不完整，将程序补充完整。

Dim x(3)As Integer Private Sub Command1_Click () For i = 0 To 3 x(i)=【】 Next i For i = 0 To UBound(x)- 1 For j = i To UBound(x) If【】Then t = x(i) x(i)= x(j) x(j)= t End If Next j Next i For i = 0 To 3 Text1(i) .Text = Str(x(i)) Next i End Sub

点击查看答案

第11题

有下面的Applet程序段： import,java.awt.*； import.java.applet.*； public class He

llo extends Applet{ public void panin(Graphics g){ gdrawString("Hello World!",25,25)； } } 为了使该Applet 程序段能在浏览器中运行，请将下面的程序段补充完整。＜HTML＞＜HEAD＞＜TITLE＞Hello World＜/TITLE＞＜/HEAD＞＜APPLET＞【】"WIDTH=150 HEIGHT=25"＞＜/APPLET＞

点击查看答案