A.浏览器地址栏仍然保持为Servlet1,输出为“传播智慧收获成长”
B.浏览器地址栏仍然保持为Servlet1,输出为“收获成长”
C.浏览器地址栏仍然保持为Servlet1,输出为“传播智慧”
D.服务器端报错
第1题
A、浏览器地址栏仍然保持为Servlet1,输出为“传播智慧挥洒汗水”
B、浏览器地址栏仍然保持为Servlet1,输出为问号组成的乱码
C、浏览器地址栏仍然保持为Servlet1,输出为“挥洒汗水”
D、服务器报错,不能多次请求转发
第2题
第3题
import java.awt.*;
public class Exam11_1
{
private Frame. f;
private Button b1,b2,b3,b4;
public static void main(String args[]
{
Exam11_1 that = new Exam11 1 ();
that.go();
}
public void go()
{
______;
f.setLayout(new FlowLayout()) ;;
b1 = new Button ("Button 1");
b2 = new Button ("Button 2");
b3 = new Button ("Button 3");
b4 = new Button ("Button 4");
f.add (b1);
f.add (b2);
f.add (b3);
f.add (b4);
f.pack ();
f.setVisible (true);
}
}
请在程序中画线处填写正确的语句【 】,以便编译运行程序后得到正确的结果。
第4题
A.3.1415**
B.***3.1416
C.3.141593
D.**3.14159
第5题
以下代码片段的运行结果是否正确? const ctx = wx.createCanvasContext('myCanvas') // Draw coordinates ctx.arc(100, 75, 50, 0, 2 * Math.PI) ctx.setFillStyle('#EEEEEE') ctx.fill() ctx.beginPath() ctx.moveTo(40, 75) ctx.lineTo(160, 75) ctx.moveTo(100, 15) ctx.lineTo(100, 135) ctx.setStrokeStyle('#AAAAAA') ctx.stroke() ctx.setFontSize(12) ctx.setFillStyle('black') ctx.fillText('0', 165, 78) ctx.fillText('0.5*PI', 83, 145) ctx.fillText('1*PI', 15, 78) ctx.fillText('1.5*PI', 83, 10) // Draw points ctx.beginPath() ctx.arc(100, 75, 2, 0, 2 * Math.PI) ctx.setFillStyle('lightgreen') ctx.fill() ctx.beginPath() ctx.arc(100, 25, 2, 0, 2 * Math.PI) ctx.setFillStyle('blue') ctx.fill() ctx.beginPath() ctx.arc(150, 75, 2, 0, 2 * Math.PI) ctx.setFillStyle('red') ctx.fill() // Draw arc ctx.beginPath() ctx.arc(100, 75, 50, 0, 1.5 * Math.PI) ctx.setStrokeStyle('#333333') ctx.stroke() ctx.draw() 运行结果:
第6题
以下代码片段的运行结果是否正确?() const ctx = wx.createCanvasContext('myCanvas') // Draw coordinates ctx.arc(100, 75, 50, 0, 2 * Math.PI) ctx.setFillStyle('#EEEEEE') ctx.fill() ctx.beginPath() ctx.moveTo(40, 75) ctx.lineTo(160, 75) ctx.moveTo(100, 15) ctx.lineTo(100, 135) ctx.setStrokeStyle('#AAAAAA') ctx.stroke() ctx.setFontSize(12) ctx.setFillStyle('black') ctx.fillText('0', 165, 78) ctx.fillText('0.5*PI', 83, 145) ctx.fillText('1*PI', 15, 78) ctx.fillText('1.5*PI', 83, 10) // Draw points ctx.beginPath() ctx.arc(100, 75, 2, 0, 2 * Math.PI) ctx.setFillStyle('lightgreen') ctx.fill() ctx.beginPath() ctx.arc(100, 25, 2, 0, 2 * Math.PI) ctx.setFillStyle('blue') ctx.fill() ctx.beginPath() ctx.arc(150, 75, 2, 0, 2 * Math.PI) ctx.setFillStyle('red') ctx.fill() // Draw arc ctx.beginPath() ctx.arc(100, 75, 50, 0, 1.5 * Math.PI) ctx.setStrokeStyle('#333333') ctx.stroke() ctx.draw() 运行结果:
第9题
【说明】
某个文本文件中存放了若干个非零数值有效数据,每个数据占一行,最后一行以数字“0”作为结束标志。下面的程序用于计算该文件中这
些数据之和,其运行窗口如下。
用户只要通过驱动器列表框、目录列表框和文件列表框,选择文本文件所在的驱动器、文件夹及相应的文件名,再单击“累计”按钮,就
能在“总计”文本框中看到该文本文件中的数据之和。
在开发过程中,设驱动器列表框名为Drivel,目录列表框名为Dirl,文件列表框名为Filel,存放数据的文本文件名为D:\test\vb7\datA
.txt,“累计”按钮名为sum,“总计”文本框(TextBox)名为textl。
【Visual Basic代码】
Private Sub Drivel_Change()
Dirl.Path=(1) '户选择的驱动器反映到目录列表框中
End Sub
Private Sub Dirl_Change()
Filel.Path=(2) '用户选择的文件夹改变文件列表框内容
End Sub
Private Sub sum_Click()
Dim (3) As New FileSystemOject, (4) As TextStxeam
'创建自己的文件系统对象,说明自己的文本流对象
If Right (Dirl.Path,1)="\"Then
SetmyTextFile=fso.OpenTextFile (Dirl.Path+Filel.FileNamc)
Else
SetmyTextFile=fso.OpenTextFile(Dirl.Path+”\’+Filel.FileName)
End“
S=0
Do
d=Val (myTextFilE.ReadRow)
S=S+d
Loop While (5)
Textl.Text=Str$(S)
End Sub
第10题
[说明]
在一些财务软件中,经常需要将阿拉伯数字的账目转化为汉语习惯中的金额计数方法,例如:
“3.45”转化为“叁元四角五分”;
“3.4”转化为“叁元四角”;
“3.40”转化为“叁元四角零分”;
“3.456”转化为“叁元四角五分”;
“345.00”转化为“叁百四十五元零角零分”;
“345”转化为“叁百四十五元”;
以下Visual Basic代码实现了小写金额转换为大写金额。界面如图10-9所示。结合实际例子说明,仔细阅读下面代码,将(n)代码补充完整。
[代码7-1]
Begin VB.FormForm1
Caption = "小写金额转换为大写金额"
//...窗体描述(略)
Begin VB.CommandButton Command1
Caption = "退出"
//...窗体描述(略)
End
Begin VB.TextBox Text2
//...窗体描述(略)
End
Begin VB.TextBox Text1
Enabled = 0 'False
//…窗体描述(略)
End
Begin VB.Labe1 Labe12
Caption = "转换为大写金额"
//...窗体描述(略)
End
Begin VB.Labe1 Labe11
Caphon = "请输入数字"
//...窗体描述(略)
End
End
[代码7-2]
Private Function setdata (num As Integer) As String '数字转换
Select CaSe num
Case 0
setdata="零"
Case 1
Setdata="壹"
Case 2
Setdata="贰"
Case 3
Setdata="叁"
Case4
Setdata="肆"
Case 5
Setdata="伍"
Case 6
Setdata="陆"
Case 7
Setdata="柒"
Case 8
Setdata="捌"
Case 9
Setdata="玖"
End Select
End Function
Private Function chang (aaa As Integer) As String '位数转换
Select CaSe aaa
Case 1
chang=""
Case 2
chang="十"
Case 3
chang="百"
Case 4
chang="千"
Case 5
chang="万"
Case 6
chang="十"
Case 7
chang="百"
Case 8
chang="千"
Case 9
chang="亿"
Case 10
chang="十"
End Select
End Function
[代码7-3]
Private Sub Text2_Change ( ) '小写转大写
Dim i As Integer
Dim j As Integer
Dim myint As Integer
Dim myint1 As Integer
Dim mydoub As Double
Dim mystr As String
Dim mystr1 As String
Dim mystr2 As String
Dim mystr3 As String
Dim mystr4 As String
Dim money As Long
Dim money1 As Integer
Dim money2 As Long
mystr=Text2.Text
myint=InStr (mystr, ".")
If myint=0 Then
mystr=Text2.Text
Else
mystr3=Right(Text2.Text, Len (Text2.Text ) - myint)
If mystr3<>""Then '转换小数位
mystr4=Left(mystr3, 1)
mystr3=Right(mystr3, Len(mystr3 )
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!