Visual Basic.NET程序设计基础 陈承欢 (第6章)-数据输出与格式控制

《Visual Basic.NET程序设计基础 陈承欢 (第6章)-数据输出与格式控制》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第6章数据输出与格式控制数据输出的常用方法6.1数据输出的格式控制6.2常用的数据输出方法有MsgBox函数、MessageBox类的show方法、Console类的Write方法和WriteLine方法以及使用TextBox、Label、DateTimePicker等控件输出数据。在文件操作中，还可以使用Write、Writeline、Print和PrintLine方法输出。——【知 识 技 能 目 标】——（1）掌握使用TextBox控件和DateTimePicker控件输出数据的方法。（2）掌握Console类的输出方法。（3）掌握MsgBox函

2、数和MessageBox类。（4）掌握标准数字格式说明符、自定义数字格式说明符。（5）掌握标准日期/时间格式说明符、自定义日期/时间格式说明符。（6）掌握复合格式化。（7）掌握ToString方法和Format函数。6.1数据输出的常用方法6.1.1使用TextBox控件和DateTimePicker控件输出数据使用TextBox控件输出数据，就是把要输出的数据赋值给对应控件的Text属性，通过Text属性输出数据。使用DateTimePicker控件输出数据，就是把要输出的日期/时间数据赋给对应控件的Value属性，通过Value属性输出数据。【实例

3、6-1】【设计任务】成立于1988年8月18日的天空公司到2007年2月28日为止共完成销售收入1234567890.88元，利润约为246809898.66元，编写程序计算每月的平均销售收入、每年的平均利润额以及总利润率，要求按如图6-1所示的格式输出这些数据。6-1使用TextBox控件的Text属性格式化输出数据【设计过程】（1）新建一个控制台应用程序项目Chapter6_1，系统自动生成一个窗体。（2）在窗体中添加控件，并设置窗体和控件的属性，外观如图6-1所示。（3）编写程序代码，实现其功能。窗体Form1的Load事件的程序代码如代码6-1

4、所示。代码6-10102030405060708Dimsales,profits,averageSales,averageprofits,profitMarginAsDoubleDimdateFound,dateNowAsDateTimeDimyears,monthsAsIntegerDimstrWriteAsStringsales=1234567890.88profits=246809898.66dateFound=#8/18/1988#dateNow=DateTime.Now代码6-1091011121314years=DateDiff(DateI

5、nterval.Year,dateFound,dateNow)months=DateDiff(DateInterval.Month,dateFound,dateNow)averageSales=sales/monthsaverageprofits=profits/yearsprofitMargin=profits/salesTextBoxStartDate.Text=dateFound.ToString("yyyy年M月d日dddd")代码6-1151617181920DateTimePicker2.Value=Format(dateNow,"Long

6、Date")TextBox1.Text=sales.ToString("C")TextBox2.Text=Format(averageSales,"n4")TextBox3.Text=profits.ToString("￥##,##0.000")TextBox4.Text=Format(averageprofits,"0.00E+00")TextBox5.Text=profitMargin.ToString("P")6.1.2Console类的输出方法Console类的输出方法主要用于控制台应用程序，在可视化程序设计时使用较少。【实例6-2】【设计任务

7、】编写程序计算201以内的偶数个数，并输出这些偶数，要求每一行输出10个偶数。【设计过程】（1）新建一个控制台应用程序项目Chapter6_2。（2）编写程序代码，实现其功能。程序代码如代码6-2所示。代码6-201020304050607080910Dimeven()AsIntegerDimcount,jAsIntegerDimstrEvenAsStringcount=0j=0ForiAsInteger=1To200IfiMod2=0Thencount+=1EndIfNext代码6-2111213141516171819ReDimeven(count

8、-1)ForiAsInteger=1To200IfiMod2=0Theneven(j)=ij+